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lOENTIFICPTION 


PRODUCT CODE: 
PRODUCT NRHE: 

DATE: 

riRINTfiirCD BY: 
AUTHOR; 


HAIfCEC-ll-OTRbA-A 

RKbll - RK06 DISK DEVICE ROUTirC 
FOR rf>G 

JULY 197b 

DIAGNOSTIC ENGINEERING 
A. U. LEIGH 


COPYRIGHT (C) 197b _ 

digital EOUIPtW CORPORATION. NAYNARC. NASS. 

THIS SOFTWARE IS FURNlSfO IfCER A LICEHX FOR^ O^Y 
OH A Sir%E COMPUTER SY^ ATC NAY BE COPIED^O^Y UITH 
T« INOSlON OF T>C ABO^ COPYRI^ NOTICE. THIS 
SOrTHA^OR ANY OT»CR COPIES THCTEOF^Y WT BE W- 
VIO0W OT«RHIS£ NADE AVAIlABLE TO Any 0T»€R PERSON 
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T»CSE LICENSE TpWS. T|Tj^ TO ATC OWCRSHIP OF T« 
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lS remain in dec. 


T>C irrORHATION IN THIS OOCUTCNT IS SUBJECT TO CHANGE 
without NOTICE AfC SHOULD NOT BE CONSTRUED AS A C0f1Nr?«N’ 
BY digital EOUIRCNT COLORATION. 

DEC ASSlfCS NO RESPONSIBILITY FOR USE OR RELlABI^rY 
OF ITS SOFTWWIE ON EXIPNEN’ WHICH IS NOT SUPPLIED BY 
DEC. 
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.sbttl revision history 

:x 7b DTRb«-R initial R£LE(^ RS A FULL SUPPORT 
DEVICE ROUTINE FOR THE RKOb DISK. 


SEi XCc 



RKfall - RKOb DEVICE ROUTINE FOR ff»C 
DTRSAfl.Pll STRfCRRO DEVICE ROUTINE TRBLE 


DOl 

fIRCYll 27(732) 


2H-SEP“7b iH;li PRGE 3 


SE3 D003 


4 

50 

51 

52 

53 
5H 

55 

56 
55 
50 
bl 
be 
b3 
faH 
b5 
bb 
b7 

be 

b5 

70 

71 

72 

73 
7M 
75 
7b 

77 

78 
75 
80 
31 
82 
33 
8H 
9S 
8b 
87 
38 

05 

50 

51 

52 

53 
5H 
55 
5b 

57 

58 
oa 

IOC 

101 

102 


000000 ’ 


.title ROUT.* *0 

:REVISI0M -R’ 

;FILENflfC OF -TRSAPO-NPC" ON IPG/XXDP fCDIfl 
;P«CY11: OTR«»,DTRbflfi/CRF:SYn/OOCsOTRbAR.Pll 
i W J***pSNCH*D?ft2S!Sc^f LE : ELEV 


.CSECT RJPIl 
.DSRBL GBL 


EQUIVALENT STATEMENTS 


170200 

f 

:PRO(»An EQUALS 
&JSNAP=170200 

0724b0 

ITIHE=30000. 

00040C 

NRUORO=2Sb. 

OQIOUO 

NRBYTE=2fffM)RD 

000&33 

NRCYL=H11. 

000003 

NRHEA0s3 

17777b 

PS=17777E 

000020 

000003 

REGNUNslb. 

S0riAX=3 

002H12 

STSLUP=2H12 

000000 , 

XXXX=0 

OOCHDOO 

iDEVlCE RECISTGER NAfCS 

ftpcsi=o 

000002 

RPUC=2 

OOOOOM 

RPBA=H 

00000b 

RPOA=b 

C30010 

RPCS2slO 

000012 

RP0S=12 

000U15 

OOOC15 

RPER=14 

RPER1=RP£R 

00001b 

RPAS=lb 

000020 

RPDC=20 

000022 

RKNU=22 

000C2M 

RPOB=2*4 

00002b 

RPNRl=2b 

000030 

RPEC1=30 

000032 

RPEC2=32 

00003M 

RPHR2=3M 

000C3b 

RPf1R3=3b 

100000 

:RKCSi DEVICE BIT EQUATES 
tCLRslOOOOO 

OHOOOO 

D 1=50000 

0200CC 

5PAR=20000 

210CCD 

CFNTrlOOOO 


UNIBUS AODR OF BUS-NAP REGS 
interrupt TI»€-C0UNT 
NR WORDS IN ore SECTOR 
NR BYTES IN ore SECTOR 
NR OF cylinders 
NR OF HEADS 

^ OF DEVICE REGISTERS 
HicresT value of select-drive code 
LOOP CONTROL FOR "STSTAT" ROUTIJe 
VALUE TO BE TAYLORED BY DEVICE ROUTINE 
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:CN 

IDS 

:oe> 

:07 

108 

iCS 

• ! n 

• AW 

fU 

1 .c' 

113 

1 i*4 

115 

11* 

lie 

lie 

120 

121 

122 

123 

12M 

125 

125 

127 

128 
12S 
IX 
131 
IX 

133 

134 
IX 
IX 
137 
IX 
IX 

140 

141 

142 

143 

144 

145 
145 

147 

148 

149 

150 

151 

154 

155 
155 

157 

158 

•C3 


004000 

000200 

OOOIX 

000001 



010000 

004000 



000200 

000040 

000020 

000010 


100000 

040000 

004000 

000200 

OOOIX 

000040 

000020 

000010 

000001 


100000 

040000 

020000 

010000 

004000 

002000 

XIOOO 

0004X 

000200 

OOOIX 

000040 

000020 

OOOOlO 

000004 

000002 

XXOl 


XC020 


000001 

000002 

XOOlO 

X004C 


CT0=4000 

R0Y=200 

lE^lOO 

(;o:i 



VICE BIT EQUATES 


rcDsioooo 

fCH=4000 



OR=200 
SCLR=40 
BAI=20 
RL5=10 

:RKOS DEVIC E BIT EQUATES 
§VAL=100000 
DSC:40000 
URL=4000 
DR0Y=2O0 
WslOO 
DROTsHO 
OS' -20 
' =10 
r 1 

:RKER DEVICE BIT EQUATES 

5ck=iooqoo 

UNS=4Q000 

OPI=20000 

0TE=1000O 

ULE^HOOO 

I0AE=2000 

C0E=1000 

HVRCsMOO 

BSE=200 

ECH=100 

DTYE=40 

FHTE=20 

DRPAR=10 

NXF=4 

SKI=2 

ILF=1 

:RK«R1 DEVICE BIT EQUATES 
^AT=20 

: SYSTEM FLAG-UORD BIT DEFINITIONS 

HMVERsl 

USNTPS=2 

CPU70=10 

UNIMAP=4Q 



FOl 
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STANOPRD DEVICE ROUTINE TABLE 


IbC 


Ibl 


lb2 

DOOOOl 

lb3 


lb4 

IbS 


Ibb 

000011 

ifc7 

000013 

I SB 

000015 

IbS 

000017 

170 

000021 

171 

000023 

172 

000025 

173 

000027 

174 

000031 

ITS 


i7b 


177 

100000 

178 

002000 

178 

000200 

180 

000100 

181 

001000 

1B2 

000400 

183 

000040 

104 

000020 

185 

000010 

19b 

000002 

187 

QOOCOl 

188 


188 


180 

172350 

181 

172310 

182 

100000 

183 

077408 

184 


185 


1% 

000001 

187 

000002 

188 

000004 

188 

300010 

pm 

C0C02C 

2wl 

000040 


:OISK COnriANO CODES 
^OOE:l 


UC 00 E =7 

55^-11 

RCC 00 E =13 

OCOOE=l| 

SC 00 E =17 

RC 00 E =21 

ycooi^3 

RHCOOE= 2 S 

.UHC 00 E =27 

UCC 00 E =31 

:DEVICE ROUTINE (DFLCUO) FLAG BPS 

<iWTHD =100000 

C 0 RFLG =2000 

ftNYI0I=2gQ 

Cff)ISU=lOO 

VVFLG= 1000 

SPirCLs HQO 

SMOVTOr 40 

SUOIERs 20 

SWOVERr 10 

00 TER «=2 

I 0 ERR =1 

:rtMORY NANAGENENT EQUATES 

|S:PAR 4=172350 

KPORH =172310 

PHC 0 NS =100000 

P 0 RC 0 N= 07740 & 


:DIAGNOSTIC FLAG EQUATES 

6rib=i 

NEE=2 

NDC=4 

NRC=10 

NCCr20 

PBSH=40 
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SEG ZOOb 


203 

204 

205 

208 

208 


f1 P G 


INTERFACE 


THE FOLLOWING TABLE IS IN THE STANDARDIZED FORMAT RE(JUIRED 
TO INTERFACE WITH flPG. 


210 




.WORD 

DVRENO-. 

211 

000000’ 

015544 

LOCZ: 

212 

000002’ 

000004’ 

oogoob’ 

000010’ 

000000 

DFLGUO 

: .WORD 

0 

213 

000000 

CYL; 

.WORD 

n 

w 

214 

215 

OOOOQO 

000000 

HEAD: 

SECT: 

.WORD 

.WORD 

0 

0 

ilk 

000012’ 

000014’ 

000003 

RTRY: 

.WORD 

3 

217 

000000 

MSGA: 

.WORD 

0 

218 

00001b’ 

ooocco 

M5GB: 

.WORD 

0 

218 

000020’ 

000001 

SIZE: 

.WORD 

1 

220 

000022’ 

000024’ 

000000 

ERRI: 

.WORD 

0 

221 

177440 

DREGAD 

.WORD 

177440 

222 

00002b’ 

000030’ 

000032’ 

000210 

IVCTAD 

.WORD 

210 

223 

000240 

PSUD: 

.WORD 

240 

224 

000000 


.WORD 

0 

225 

000034’ 

Q0003b’ 

002042 


.WORD 

HSKEEP-. 

22t> 

002122 


.WORD 

REPORT-. 

227 

000040’ 

0027X 


.WORD 

KILL-. 

228 

000042’ 

001700 


.WORD 

DATAER-. 

228 

000044’ 

002456 


.WORD 

TOUTER-. 

2X 

00004fc’ 

000050’ 

0000S2’ 

000000 

CIOBSY 


0 

231 

000000 

CUPGER 

.WORD 

0 

232 

000000 

ULIST: 

.WORD 

0 

233 

000054’ 

000000 

CLIST: 


0 

234 

00005b’ 

OOOObO’ 

000062’ 

000000 

BINASC 

.WORD 

0 

23S 

000000 

BTASLZ 

.WORD 

0 

23& 

000000 

DECASC 

.WORD 

0 

237 

000064’ 

000000 

CSY5FM 

.WORD 

0 

23B 

OOOObb’ 

1 II i|i 

SETVEC 

.WORD 

0 

238 

000070’ 


CLRVEC 

.WORD 

0 

240 

000072’ 


TSTVEC 

.WORD 

0 

241 

000074’ 

000076’ 

iVi 

RTNINT 

.WORD 

0 

242 


GETBYT 


0 

243 

OOOIOQ’ 


PUTBYT 

.WORD 

0 

244 

OOOlS’ 

000014 


.WORD 

DVREGS-. 

245 


000152 


.WORD 

DVCM0S-. 

24{) 

00034b 


.WORD 

DVPKTE-. 

247 

000110’ 

000112' 

D00114’ 

000714 


.WORD 

DVHVTE'. 

24B 

00107b 


.WORD 

0VCPTE-. 

248 

001406 


.WORD 

DVIUST-. 


DEVICE ROUT SIZE IN BYTES 
DEVICE ROUT FLAGWORD 
CYLINDER i (0 thru 410. J 
HEAD • (0 THRU 2. ) 

SECTOR i (0 THRU 21. /IS. ) 
t OF RETRY ATTEMPTS 
SAvI MSG A 
SAVE MSG B 

• OF BYTES TRANSFERRED / UNIHAP FLG 
ERROR ON LAST I/O INDICATOR 
FIRST DEVICE REGISTER ADR 
INTERRUPT VECTOR ADR 
INT PROC STATUS WORD (0R 5j 
NOT USED 

HOUSEKEEPING ROUT REL ADR 
R^T ROUT PEL ADR 

REL ADR 

TINE OUT ERROR ROUT REL ADR 


I/O BUS Y BRA NCH APR 
DEVICE ERROR WANCH 


JVICE ERROR BRANCH ADR 
USER NODE PRINT ROUTirC BRANCH ADR 
CMND nOOE P^NT ROUTIfC BfV^ ADR 
CONVERTBINA/W to ASCII ROUT BR ADR 
CONVERT BINARY TO OECINAL ASCII BR ADR 
CONVERT PACKED OECINAL TO ASCII BR ADR 
NPG SYSTEM FLAGUORO ADR 
SET INT VECT ROUT BR ADR 
CLEAR INT VECTOR ROUT BR ADR 
TEST INT VECTOR ROUT BR ADR 
RETURN FROM INT ROUT BR ADR 
(£T DATA BYTE ROUT BR ADR 
PUT DATA BYTE ROUT BR ADR v 
ADR OF DEVICE REGISTER NAMES 
ADR OF DEVICE FUNCTIONS 
ADR OF PACK TBL EXTENSION 
ADR OF MODEL VECTOR TBL EXTEN. 

ADR OF compiler TBL EXTEN. 

ADR OF DEV INTERFACE UD SYM ""BL 



;VftLlD DEVICE REGISTER ^ 
; THEIR positions RELRTIV 


VALID DEVICE FUNCTIONS 
FLAG BYTE; 

BIT 7 = NPR DEV 

BIT 3 = flASSBUS DEV 

BIT 0 = B UORDS FOP 

(18 Br ADR! 
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307 

000314- 

004510 


^81 

370 

004406 

201 

310 

000322’ 

367 

000 

311 

000324- 

004356 


312 

000326’ 

000330’ 

000332’ 

366 

201 

313 

004364 


314 

365 

000 

315 

000334* 

000336’ 

000340’ 

003220 


316 

364 

000 

317 

003342 


318 

000342’ 

363 

000 

319 

000344’ 

003260 


320 

0003%’ 

362 

000 

321 

000350’ 

000352’ 

002452 


322 

361 

000 

323 

000354’ 

000356’ 

002620 


324 

360 

000 

325 

000360’ 

004420 


326 

000362’ 

000364’ 

000366’ 

000370’ 

357 

000 

327 

003332 


328 

356 

000 

329 

003320 


3X 

000372’ 

000374’ 

000376’ 

000400’ 

355 

000 

331 

004416 


332 

354 

000 

333 

003324 


334 

000402’ 

353 

000 

335 

000404* 

005160 


336 

GJ0406’ 

000410’ 

000412’ 

352 

000 

337 

003322 


338 

347 

000 

339 

000414’ 

000416’ 

000420’ 

003120 


340 

346 

000 

3M1 

003124 


JH2 

000422’ 

345 

000 

3H3 

000424* 

003030 


?4M 

Q00426’ 

344 

000 

JH5 

Q0043Q’ 

000432’ 

003034 


346 

337 

000 

347 

000434’ 

003040 


348 

000436’ 

336 

000 

349 

000440’ 

000442’ 

003044 


350 

335 

000 

351 

000444’ 

003050 


352 

000446’ 

334 

000 

353 

354 

000450’ 

000452' 



355 




356 

000454’ 

047516 

040527 

357 

358 

000462’ 

000464’ 

000472’ 

000474’ 

02oS^ 

000 

040527 

359 

375 

000 

360 

052123 

052101 

361 

000502’ 

374 

000 

362 

0005D4- 

0475C3 

047125 


.WORD 5ELDRI-. 
•BY]^ 370, 2Ci 

.WOro URCK-. 
•BYTE 3b7.0 
.WORD ROf€-. 
.BYTE 3{>6.201 
.WORD URHO-. 
.BYTE 365.0 
.WORD CRESeT-. 
.BYTE 36M.0 
.WORD DRE^T-. 
.BYTE 363.0 
.WORD SREiET-. 
.BYTE 362.0 
.WORD STE<>UP-. 
.BYTE 361.0 
.WORD STETON-. 
.BYTE 360.0 
.WORD OFFSET”. 
.BYTE 357,0 
.WORD SPIN-. 
.BYTE 356,0 
.WORD UNLOAD-. 
.BYTE 355,0 
.WORD RECAl-. 
.BYTE 3SM,0 
.WORD PAkAck-. 
.BYTE 353,0 
.WORD BAO^C-. 
.BYTE 352,0 
.WORD REL-. 
.BYTE 3M7,0 
.WORD FtlT^a-. 
.BYTE 3M6,0 
.WORD FHTJo-. 
.BYTE 345,0 
.WORD ODD-. 
.BYTE 344,0 
.WORD EVEI^-. 
.BYTE 337,0 
.WORD BAIOn-. 
.BYTE 336,0 
.WORD BAIOfF-. 
.BYTE 335,0 
.WORD COfiON-. 
.BYTE 334,0 
.WORD COROFF-. 
.WORD 177777 

052111 DVPKTE: .ASCII /NOWAIT/ 

.BYTE 376,0 

052111 .ASCII / AaiT/ 

.BYTE 375,0 

051525 .ASCII /STAtuS/ 

.BYTE 374,0 

051524 .ASCII /COUNTS/ 


SCO 0006 


101 
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; TABLE TERMINATOR 
:PACK TABLE EXTENSION 



'iHiriDEC-ll-OTRSA-fl RKbil - RKOfc DEVICE ROUTINE FOR tIPG 


JOl 


fIflCYll 27(7; 


:^RfeAM.Pii 


OfIPILER TABLES & CONSTANT AREAS 


000512* 

000S14’ 


000524* 


HI«42* 

000544’ 

000552; 

000572’ 


373 

042523 

Hi 

020040 

3t)7 


000504’ 

m 

000524’ 

000532’ 


051103 

355 

asijgj 

051123 


052123 

351 


8881^: 

000552’ 

000554’ 

000552* 

000554’ 

000572’ 

000574’ 

000702’ 

000704’ 

000712* 

000714* 

000722* 

000724’ 

000732’ 

000734* 

000742* 

000744’ 

000752’ 

000754’ 

000752’ 

000754’ 

000772’ 

000774’ 

mm- 

001012* 

001014’ 

001022 ’ 


357 

047125 

355 

051040 

355 

040520 

354 

040502 

353 

020040 

352 

043040 

347 

043040 

345 

020040 

345 

020040 

344 

041040 

337 

040502 

335 

041440 

335 

047503 

334 


000 

042523 

000 

042114 


042122 

000 

051127 


045505 

044522 

045503 

042110 

042110 

052105 

052105 


051505 052105 


050105 

000 

051505 


001024 ’ 0003^ 
001030* 000375 
001034’ 000374 
001040* 000373 


050123 

000 

047514 

000 

041505 

OCKJ 

040513 

000 

051504 

000 

051040 

000 

052115 

000 

052115 

000 

047440 

000 

053105 

000 

044501 

000 

047511 

000 

051117 

000 

047522 

000 

001570 

001570 

001570 

D01570 


050125 

047104 

052105 

047111 

042101 

045101 

045503 

041505 

045105 

031052 

030052 

042104 

047105 

047117 

043105 

047117 

043105 


OVfIVTE: 


.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 


.ASCII 

.BYTE 

■w 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 


.ASCII 

.BYTE 

.ASCII 

.BYTE 

.UORO 

.UORO 

.WORD 

.UORO 


373.0 

/ ^EK/ 

372.0 
/SELORI/ 

370^ 

/ rDHO/ 

357.0 
/ 

355.0 
/CRfSET/ 

355.0 

/SRESET/ 

/ST^DN/ 

351.0 
/OFFSET/ 

350.0 

/ SPIN/ 

357.0 
/UNLOM)/ 

355.0 

/ ^CAL/ 

355.0 

/pa<:ack/ 

354.0 
/BAOSEC/ 

353.0 

/ REL/ 

352.0 

/ Ffrr22/ 

347.0 

/ FMT20/ 

345.0 

/ ODD/ 

345.0 

/ EVEN/ 

344.0 

/ bAion/ 

337.0 
/BAlOFF/ 

/^ftSoN/ 

335.0 
/COrOFF/ 

334.0 

375,MSFMT1-L0C2 
375,MSFMT1-L0CZ 
374 MSFNTl-LOCZ 
373,MSFHT1-L0CZ 
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;nOOEL VECTOR TABLE EXTEN. 



ses 3010 
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ms OOIOMM’ 000372 001570 


.UORO 



ilOSM’ 
)1 

423 OOlObM’ 

424 001070’ 

425 001074’ 
42b 001 IX’ 

427 WHOM’ 

428 XlllO’ 
42S X1114’ 

430 W1120’ 

431 M1124’ 

432 X1130’ 

433 W1134’ 

434 M1140’ 

435 M1144’ 
43b X1150’ 

437 Q01154’ 

438 OOllbO’ 
43S Xllb4’ 

440 001170’ 

441 Q01174’ 

442 001200’ 

443 001204’ 

444 

445 
44b 

447 

448 X1210’ 

449 X1212’ 

450 X121b’ 

451 M122C’ 

452 W1224’ 

453 Wl22b’ 

454 001234’ 

455 00123b’ 

45b X1244’ 

457 


458 



QQl 

001 

459 X1254’ 
4b0 X12b2’ 
4bl gg{2b4; 

4b2 xll^’ 
4b3 X1300’ 
Xl30b’ 
4b4 X1310’ 
4b5 X1312’ 
X1320’ 
4bb X1324’ 
4b7 Xl32b’ 
4b8 X1332’ 
4b9 X1334’ 
X1340’ 
X1342’ 


0003bb 

0003b5 

0003b4 

0003b3 

000362 

000361 

000360 

0003S7 

000356 

0003S5 

000354 

000353 

000352 

000347 



4'2 
4"1 


000334 


003 
004537 

X3 

004537 

004 
004537 

004 

004537 

003 
004537 

004 
004537 

00b 

004537 

000002 

005 
004537 
000002 

00b 

004537 

000002 

003 

X4537 

003 

004537 

003 

004537 


m 

X157b 

XlbOS 

X1570 

X1570 

W1570 

XlbOS 

XlbOS 

XlbOS 

X1570 

W1570 

M1570 

X1570 

W1570 

W1570 

W1570 

M1570 

X1570 

WJ570 

001570 

001570 

M1570 

001570 


T0X12 

375 

00C012 

371 

000012 001002 
373 

000012 QOlOOl 

372 
XX12 

371 

000012 000000 
370 

000012 000000 
000X2 
3b7 

000012 000000 
3bb 

000012 000204 
X0X2 
3b5 
00X12 
3b4 

000012 

3b3 

000012 


C)VCPTE: 


.kO 
.WORD 
.UORO 
.UORO 
.UORO 
.WORD 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 


372 

frh 

3b7 
3bb 
3b5 
364 
3b3 
362 
3bl 
360 
357 
35b 
355 
354 
353 
352 
347 
34b 
345 
344 
37 


.UORO 

.UORO 


335 

334 


KOI 
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MSFNTl-LOCZ 

N5FMT3-L0C2 

HSFflTS-LXZ 

NSFWTl-LXZ 

NSFMTl-LOCZ 

nynTi-LXZ 

f&-f1T5-LX2 

W$FriT5-L0CZ 

flSF«T5-LXZ 

NSFMTl-LXZ 

flSFHTl-LOCZ 

nSFMTl-LOCZ 

HSFHTl-LOCZ 

MSFMTl-LOCZ 

MSFMT1-LX2 

MSFMTl-LOCZ 

MSFMTl-LOCZ 

MSFMT1-LX2 

MSFMTl-LOCZ 

MSFMTl-LXZ 

MSFMTl-LOCZ 

MSFMTl-LOCZ 

MSFMTl-LOCZ 
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COMPILER TABLE EXTENSION 

•BYTE 3.37b 
.UORO 45^10. 

.BYTE 3.3^ 

.UORO 4537.10. 

.BYTE 4.374 
.UORO 4&37.10.,1X2 
.BYTE 4.375 
.UORO 4§37.10.,1X1 
.BYTE 3.372 
.UORO 4537,10. 

.BYTE 4 J 7 I 
.UORO 4S37.10.,0 
.BYTE b.370 
.UORO 4537, 10., 0,2, 2 

.BYTE 5.367 
.UORO 4537, 10., 0,2 

.BYTE b.3bb 

.UORO 4537, 10., 132., 2, 2 

.BYTE 3.365 
.UORO 4537,10. 

.BYTE 3.364 
.UORO 4537.10. 

.BYTE 3.363 
.UORO 4537 , 10 . 


NO UAIT 

UAIT 

STATUS 

COUNTS 

SEEK 

SELECT DRIVE 
URITE CHECK DATA 

READ HEADER 

URITE HEADER 

CONTROL RESET 
DRIVE RESET 
SUBSYSTEM RESET 
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472 

473 
47M 
47 
47 

477 

478 
47S 
400 

481 

482 
403 
48M 

407 

488 

488 

490 

491 

492 

493 

494 

495 
49b 

497 

498 

499 

500 

501 

502 

503 

504 

505 
SOb 

507 

508 

509 

510 

511 

514 

515 
51b 
517 
510 

519 

520 

521 

522 

523 

524 

525 
52b 
527 


00l3Hb’ 

001350’ 

00l3Sb’ 

001370’ 

00137b’ 

001400’ 

001404’ 

001408’ 

001412’ 

001414’ 

001420’ 

001430’ 

001434’ 

001438’ 

001442’ 

001444’ 

Q0145Q’ 

001452’ 

001456’ 

001480’ 

001484’ 

001488’ 

001472’ 

001474’ 

001500’ 

001502’ 

001508’ 

8 01510’ 
01514’ 
001518’ 


0G1522’ 

001528’ 

m- 

00153b’ 

001542’ 

001544’ 

001550’ 

001552’ 

001558’ 

001580’ 

001584’ 

001588’ 


001570’ 


004 

004537 

004 

004537 
003 
004537 
003 
004537 
003 
004537 
003 
004537 


004537 

003 

004537 

003 

004537 

0045^ 

003 

004537 

003 

004537 

003 

004537 

003 

004537 

003 

004537 

003 

004537 


382 

000012 000000 


000000 


381 

000^ 

000012 000000 

357 

000012 

358 

000012 

355 

000012 

354 

ooo^ii 

000012 

352 

000012 

347 
000012 

348 

000012 

345 

000012 

344 

000012 

337 

000012 

338 
000012 

335 

000012 

334 

000012 


.BYTE 

.UORO 

.BYTE 


.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.uoro 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 

.BYTE 

.UORO 


4.382 

4§37,10.,0 

4.381 

4$37 10.,0 
3 ■ 35* 

4§37, 10. 

3.356 

4637.10. 
3.356 

4637.10. 

3.354 

4637.10. 

3.355 

4637.10. 

3.352 

4637 . 10 . 

3.34^ 

4637 . 10 . 
3.346 

4637 . 10 . 
3.346 

4637 . 10 . 

3.344 

4637 . 10 . 

3.33^ 

4637 . 10 . 
3.336 

4637 . 10 . 
3.336 

4637 . 10. 

3.33^ 

4637 , 10 . 
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•.STEP UP 
STEP OOUN 
OFFSET 

START SPINDLE 
UNLOAD 
RECALIBRATE 
PACK ACKNOULEDGE 
PRINT LIST OF BAD SECTORS 
RELEASE 
FORMAT 22 
FORMAT 20 
ODD 
EVEN 
BA I ON 
BA I OFF 
CORRECTION ON 
: CORRECTION OFF 


SE9 0011 


054503 

020114 

6vIUST: .ascii 

000004 


.UORO 


042101 


042523 

052103 

.ASCII 

000010 


.UORO 

052122 

054522 

.ASCII 


040507 

.UORO 

.ASCII 

000014 


.UORO 

051515 

041107 

.ASCII 

000018 


.UORO 

177777 


.UORO 


DEVICE INTERFACE UORD SYMBOL TABLE 


OEVIUl 


0EVIU2 

/SECT/ 

0EVIU3 

/RTRY/ 

0EVIU4 

/nSGA/ 

DEVIU5 

/HSGB/ 


;END OF TABLE 


000 


MODEL STATEMENT TABLE EXTENSION 
ftSFMTl: .BYTE 0 ;N0 OPERAND 


1«IN0eC-ll-D’RbA-ft RKSll - RK06 DEVICE ROUTINE FOR HPG 
CTRbflfl.Pll CONPILER TABLES S CONSTANT AREAS 


MOl 
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528 001S71’ 
52S QQJ57b’ 
gOlbOH* 

530 OOlbOS’ 

531 

532 

533 
53M 
535 
53b 

537 

538 

538 WlblO’ 

540 Xlbl2' 

541 OOlblH’ 

542 OClblb’ 

543 001820' 

544 001822’ 

545 001824’ 
54b 001828' 

547 Wlb30’ 

548 001834’ 
548 001838’ 

550 001840’ 

551 001842’ 

552 001844’ 

553 

554 001850’ 

555 00171Q’ 
5% 001710’ 


558 001710’ 

557 001712’ 

558 001714’ 
558 001718’ 

580 (501720’ 

581 001722’ 

582 001724’ 

583 001728’ 

584 001730’ 

585 001732’ 
588 001734’ 
587 001738’ 

570 001744’ 

571 QQ1748’ 

572 001 7M’ 

573 001752’ 

574 Q017S4’ 

575 001758’ 
578 Q0178Q’ 
577 0017S’ 


575 001758’ 
578 Q0178Q’ 

577 0017S’ 

578 
578 

580 

581 001784’ 

582 001788’ 


377 052101 
044777 052118 
000 

377 000 

001810’ 


001810’ 

001810’ 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 000000 
ocoooo 
000000 


000377 f1SFnT2: .ASCIZ <377>/AT/<377> 
177517 f1SFnT3: .ASCIZ <377>/INT0/<377> 

MSFnTS: .BYTE 377,0 
.EVEN 


000000 OOOQOQ 

000020 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

QOOOOO 

00^0 

000000 

OOOOQQ 


000000 


OOOOOQ 

000000 

000000 

000000 

000000 

000000 

001784’ 

000028 

Qonooo 

000000 


; DEVICE ROUTINE CONSTANTS 


HSKPSTs 

ISTATr 

ICSl: 

IRKUC: 

IRKBA: 

ICS2: 

IRKDS: 

IRKER: 

IRKAS: 

IRKOe: 

IRKPO: 

IRKPA: 


CSTAT: 

COUNTS: 

BYRD: 


RDCNT: 

14RCNT: 

CKCNT: 

SKCNT: 

niSCNT: 

ERRCNT: 

CECCER; 

OATAER: 

DLTCNT: 

DTECNT: 

HCRCNT: 

FERCNT: 

DCKCNT: 

UCECNT; 

RETRYS: 

INTCNT: 

CNTENO= 

CNTNUM=i 


.WORD 0 
.UORO 0,C 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0,C 

.BLKU 18. 

.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 
.UORO 0 


CNTENO-COUNTS/2 


ERRAOR: .UORO 0 
CNTAOR: .UORO 0 
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SEG 0012 


;ONE OPERAND 


STORAGE FOR DEV REG’S AT INT 
STORAGE FOR DISK REGISTERS 
AS SAVED AT INTERRUPT TINE 


;D£V REG CURRENT VALUES STORAGE 

; BYTES READ COUNT 

; BYTES URITTEN COUNT 

; BYTES CHECKED COUNT 

;R£AD CMND COUNT 
lURITE CMND COUNT 
CHECK CMNO COUNT 
; SEEK/SEARCH CMND COUNT 
HISC. CMND COUNT 
; DEVICE ERRORS COUNT 
; CORRECTABLE ECC ERRORS 
DATA/OPERATOR ERRORS COUNT 
;DATA LATE ERRORS 
DRIVE TIMING ERRORS 
HEADER VRC ERRORS 
FORMAT ERRORS 
;OATA CHECK ERRORS 
URITE CHECK ERRORS 
I OF RETRIES ON I/O CfINDS 
INTERRUPTS COUNT 
;END OF COUNT TABLE 
;NR OF COUNTERS 

;CURR ADR IN USER PROG 
;ADR OF BYTE COUNT TOTALS 



SEQ 0013 


NOl 
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;FLAC WORD Of CURR CfINO 
;CURR CrtC CODE 
;CURR BUS R00RE5S 

:NEG UORO CNT FOR CURR CfINO 
POSITIVE BYTE CNT FOR CURR CfINO 
FINRL UORO CNT (RPUC) 

:CURR RETRY COUNT 
RETRY IN PROGRESS FLAG 
PSU STORRGE PRER 


;BASE VALUE FOR RPCSl REG 
BASE VALUE FOR RPCS2 REG 
;BASE VALUE FOR RPNRl REG 

; COUNT LOOPS 
; PATCH AREA 


cr'iT'crtT'O' 


SC3 Xi-4 









S£i XIS 


'V.:‘C€v-l. C*??bA-A RKfc.i - !^0b 0€VICI 
:'Rt>*W.Pii RKOb SLtf>POfiT ROLTIfCS I 


; R0UTIf€ FOR rPC 

!^ter£D from r*>G 


coa 
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bbO 00223S’ 
E>fcl 00223b’ 

^ ms’ 

bbW 002250’ 

ifeS 0022S2’ 
00225M’ 
bb7 002250’ 
bb8 002264’ 
bbO 002265’ 
bTQ 002270’ 
2’ 


001374 
000477 
»7 


b7I 
b72 

b73 002276’ 
bTM 002302’ 
b75 002304’ 
bTb 002306’ 
b77 002312’ 
b78 002314’ 
fa73 ore^’ 
bao 002322’ 

681 002324’ 

682 002330’ 

683 002332' 
6^ 002336’ 
685 002^’ 
696 002344’ 

687 002350’ 

688 002^’ 
685 002^’ 

650 002360’ 

651 002364’ 

652 002370’ 

653 002374’ 

654 002376* 

655 002402’ 

656 002404’ 

657 002410’ 
U2’ 
114’ 

700 002416’ 
005422’ 

702 52424' 

703 002426’ 


704 0024! 

705 002434’ 

706 QQ2436’ 

707 5S?*42’ 

708 002444’ 
705 

^10 

711 002446’ 

712 :: ‘ 

^13 0024- 


74 


X1432 
010700 
062700 
012701 
005720 
001003 
005301 
374 

407 

004567 

010765 

000014 

0 04567 

177276 

004567 

010^ 

000012 

a(7«67 

177320 

004767 

m2704 

001431 

012700 

010701 

062701 

010702 

062702 

012267 

004067 

011100 

004577 


I II 1 1 1 


004067 


001363 

004567 


004567 

010663 

177761 

004067 

005725 

000205 


011050 

011056 


177334 

000020 


I5S: 


20S: 


BNE 

0R 

J5R 

BIT 

BEQ 

nov 

ROD 

nov 

TST 

Bf€ 

DEC 

Bt€ 

BR 


010462 

301: 

JSR 

.WORD 

.WORD 

010216 


JSR 

.WORD 

010444 

401; 

JSR 

.W(MD 

.WORD 

01020C 


JSR 

.WORD 

010356 


JSR 

000001 

DI5CNT: 

BIT 

BEO 

000026 


nov 

nov 

177336 


ADO 

nov 

000066 


ADO 

000012 

RPTLP: 

nov 

007676 


JSR 

nov 

175454 


JSR 


RPTBAS: 

.WORD 

007676 


JSR 

BNE 

010342 


JSR 

.worn 

.WOW 

010332 

RPTEND: 

JSR 

.WORD 

.WORD 

007644 

DVREX: 

RTS 


REPTBL: 



.WORD 
.WORD 
.UORD 
.UORO 
• WORD 


lOS 

OVREX 

DiteNT 

PC.RO 

■I5TfiT-..R0 
iREGNUn.ftl 
(R0) + 

305 

R1 

20S 

40S 

R5.PRINT 

RTlflSG-. 

12 . 

RS.DISPST 

IStfiT-. 

RSJ>RINT 

RSiOISPST 

CStflT-. 

PC.PRTIUD 

■1^ 

RPtOC 

■CNTNUn.RO 

PC.Rl 

•CC^TS-.,R1 

•fe^-..R2 

(R2)+,RPTfiftS 

RO.S^G 

(RIkRO 

RS.adiNRSC 

XXXX 

RO.RESREG 

(R1)^ 

RO 

RPTLP 

RS.PRIHT 

(^^CNTSnO 
.PRINT 


-15. 

^«SREC 


( 

RS 


BCHRO-RPTBRS 

BCnro+b-RPTBAS 

SCM-i^TBRS 

BCnUR+6-RPTBAS 

BCnCK-RP'’’BRS 
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CK’EO RLL MOROS’ (Y.N-IOSj 
GO TO EXIT ~ flu. CNTS ARE O’ S 

SSh^STSui^iyLflY’ 

Y.N-OISW 

S^T OF REG'S AT 

OF REG’S 
ALL REG'S - 0^ 

N,Y-40I 


.'ISSUE ’AT last INT* NSG 

;G0 DISPLAY STATUS AT LAST INT 
; ISSUE ’CURRENTLY’ ftSG 


;G0 DISPLAY CURRENT STATUS 

;G0 DISPLAY IfTO WORDS 
DISPLAY COUNTS’ 

;Y.N-RPTEfC 

:5^T UP I OF WORDS 

; SET UP ADR OF CNTS 

;SET UP TBL ADR 

;nOV nSG ADR TO S/R .ir*<A(;£ 
;SAVE AU «G’S 
;GET CURRENT COUNT 
; CONVERT IT TO ASCII 

; RESTORE REG'S 
; POINT AT NXT CNT 
IDONE ALL WORDS’ 

;Y,N-RPTLP 

:«) ISSUE COUNTS NSG 


; ISSUE “END OF R£P(}PT~ 


iRES’OfiS REGISTERS 
:SET UP RErjRN PC In" 
;£xr IN-.INE 



2H-5£P-7b m:i; P«G£ b-2 


Sid 


S/R CALL 

;SAVE ALL REGISTERS 

•WJJP RP^Sl I PROG TBL ADR-S 

; IS SPIN OR AeCAL IM PROCESS 

;YES i 

.•STORE CURRENT STATUS 

;CK IF I HAVE VECTOR CONTROL 
;BR IF I W’T 
; RESET iHTENAfiLE 
; RESET T« INTERRUPT VECTOR 
;Ff5ET HAITINC FOR I/O FLG 
; ISSUE I/O TlfCOUT ERROR rSG 

; RESTORE REGISTERS 
;F^N0VE RETum ADR 
;CO TO ERROR EXIT 

;r€ED TO USE NTPS INST' 

;N.Y-32S 

;SA^ CURRENT PRIORITY 
;SET PWORITY TO 7 
;CO SET UP UNIT I 
:SAVE CURR PRIORITY 
;S£T PRYwITY TO 7 
;GET CUPfi UNIT I 
-.SAVE IT 

:RESET UNIT i & CThER SI'S 
:5£T IN NY UNIT t 
:NOVE UNIT • TO RKbll 


SELECT NY DRIVER 
GE^ DRIVE’S S^hT^S 
IS DRIVE 0h:k 0*1 .:ne 
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5C3 x;7 


NO. WAIT longer 

REkT UAITINC FOR I/O TFRH FLAG 

fffSTOK pRIC UNIT I 
fCfojO ilSt HTW INST’ 

^STgR|^JRIC priority 

RESTORE ORIG PRIORr^ 


iSS'^I°HAVE^VEC?OR CONTROL’ 
;Bfl IF I DON’T 
;IS INT ENABLE SET’ 
;Y.N-10l 

;RtSET INT ENABLE 
; RESET INT VECTOR INFC 
:Exr IN-LI^€ 


sea 0018 


^HlNOEC-il-C’RW-A RKbll - RK06 DEVICE ROUTINE FOR NPG 

:^rs«.p:i RKOfe non-i o function routines 


Foa 
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an » 

Os> * 

3Da 

E 

905 

eob 

3C' 

9C8 

909 

BID 

9ii 

9ia ooaoaa’ 

313 ooaoat)’ 

914 003038’ 
815 00303b’ 
81b 003042’ 

817 0030%’ 

818 0030S2’ 
nmrw.' 


rAYfi 


004787 
012567 
004767 
OJOCb"^ 
010167 
010267 
OOS767 
4£ 


i4’ 


819 

820 
821 
822 

823 

824 

825 003102' 

826 003104’ 

827 QQ311Q’ QQIOQ 

828 Omiir 00506 

829 003116’ 

830 003122’ 

831 003126’ 

832 0031X’ 

833 

834 


004767 
020067 
103406 
020027 
001011 
020127 
1006 
‘7 
005067 
005067 
000205 

000000 


0C31»’ 

836 00o'l36’ 

837 003142’ 

838 003146’ 

839 0031S’ 

840 003156’ 

841 003164’ 

842 003166’ 

843 003172’ 

844 
945 
8% 

847 

848 
049 

I MS: 

853 003204’ 

854 00^10’ 

855 503214’ 
95fc 00321b’ 


016700 

016701 

016702 

0127(H 

012703 

032767 

001002 

012703 

000207 


004767 

012567 

004767 

020067 

inini4 

615567 


.S8TTL RKOb NON-I/O FUNCTION ROUTINES 
NOi{-TnTERRUPT I/O FUNCTION 


routines 


;-STEPUF" FUNCTION ROUTirC 


000104 

000076 

OOC252 

174742 

174736 

000052 

000044 

000220 

174710 

000632 

000002 

174666 

17%64 

174662 


17%% 

17%44 

17%42 

000633 

000024 

010000 176630 
000026 


STEPUP: JSR 
nov 
JSR 
nov 
nov 
nov 
TST 

STPWRT: JSR 

enp 

BLO 

enp 

BNE 

enp 

BNE 

STEl: CLR 

CLR 
CLR 

5TE2: RTS 

STEIV: .WORD 


STPCon: nov 
nov 
nov 
nov 
nov 

BIT 

BNE 

nov 

STPCEX: RTS 


;JSh RS. STEPUP 
;.UOftn nbA 

p^STPcon 

(R$)*/iTElV 

PC.LfkjB 

RO,CYL 

R1 HERO 

R2.SECT 

STflV 

STP1«T 

STEIV 

PC.UPSUa 

RO.CYL 

ST^ 

RO.lNRCYL-1 

ST&2 

Rl.iNRHERD-1 

5T&2 

CYL 

HERO 

SECT 

R5 

0 


CYL.RQ 

HE^,R1 

SECT,R2 

•NRCyL.P4 

•20. .R5 

•CFnt.RPCSlV 
STPCEX 
•22., R3 
PC 


:-STEPON“ FUNCTION ROUTINE 


;JSR 

;.UORO 


R5.STEPDN 

NBR 


177732 

177724 

000146 

174S7D 

174562 


STEPDN: 

STP2: 


JSR 

nov 

JSR 

enp 

BHI 

nov 


pc.STPCon 

(Rfe)+, STEIV 

PC.OUNSUB 

RO.CYL 

ST^3 

RO.CYL 


FUNCTION CALL 
iNCREfCNT FACTOR 


DO connoN setup 

SAVE INCREHENT VALUE 
GET rcu STARTING SECT,%AC.:<. 
AND SAVE then _ 


IS INCREnENTrO 

NEU ENDING 
VALUES 

IS ENDING CYL < START CYL 
YES. URAP AROUND OCCURRED 

IS Ending cyl - nax cyl 

NO, EXIT 

IS ending %AD = NAX HEAD 
NO. EXIT 

YE§, FORCE URAP AROUND 
f6R cyl, HEAD, AfC 
SECT 


;G£T CYL. «AD, & SECT V^^JES 
; IN REGISTERS 

;GET NAX CYLINDER VALUE 

ARE USING 20 SECTOR FORNA^’ 

YES 

NO 

EXIT in-line 


FUNCTION CALL 
DECREHENT FACTOR 


DO connoN setup 
SAVE INCRENENT VALUE 
GET NEU STARTING SECT, HEAD. 
IS ENDING GREATER THAN 5’a 4 
Yts. URAP AROUND 


9 


I 


l^ilNOEC-ll 

CTRbAA.Pll 


-DTRW-fl RK&ii - RKOB DEVICE ROUTINE FOR flPG 
RKOfe NON-I/O FUNCTION ROUTINES 
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eS7 003222’ 

858 00322(>’ 

859 
850 
861 

862 00324M’ 

863 0032%’ 

864 0032SM’ 

865 003262’ 

866 X3266’ 
^ 00^’ 
968 003274* 


010167 
010267 
7 


871 003306’ 

i m\^- 

87S 003316’ 

m- 

878 003324’ 
87S 003326’ 

880 003332' 

881 003334’ 

882 003340’ 

883 00^’ 

884 003344’ 
8K 0033%; 

888 003354’ 

889 

890 003356’ 

891 cm3^’ 

892 0^S4’ 

893 

894 

895 003372’ 

896 003374’ 

0^ 0039 00’ 

898 

899 003406’ 

902 003414’ 

903 003416* 


> 2 ’ 


001020 

012767 

01^7 

005067 

005767 

001002 

005367 

883 ^ 

000205 


103403 


1 

000773 

020127 

103404 

162701 

QQliQO 

000771 

020004 

103402 

160400 

000774 

000207 

166702 

020203 

103403 

060302 

005301 

000773 

020127 

mi 

005300 
1 


103402 
060400 
1774 


906 

9C7 

908 

909 
913 
9:i 


174560 



MOV 

174556 



MOV 

000632 



CMP 

000002 



BNE 

CMP 




BNE 

OOOf’2 

174530 

STP3: 

MOV 

000002 

174524 


MOV 

174522 



CLR 

177636 



TST 




BNE 

174506 

177626 


STP31: 

DEC 

JSR 

BR 

RTS 



STPl: 

177614 


ipSUB: 

ftOD 



UP4: 

CMP 




BLO 




!11? 




BR 

000003 


UPl: 

CMP 




BLO 

0000C3 



SUB 




INC 




BR 



UP2: 

CMP 




BLO 




SUB 




BR 



UP3: 

RTS 

177546 


5UN5Ue: 

sue 



DUN4: 

CMP 


000003 

000003 


DUNl: 


DUN2: 


DUN3: 


BLO 

ROD 

DEC 

BR 

CflP 

BLO 

ROD 

DEC 

BR 

CMP 

BLO 

ROD 

BR 

RTS 


Rl.HERO 

R2.SECT 

R0.if«CYL-l 

ST^l 

Rl.lNRHERO-1 

ST^l 

•NRCYL-l.CYL 

•NRHERO-l,^€fiD 

SECT 

STEIV 

STP31 

HERD 

PC.STPCOfI 

stPb 

R5 

STEIV, R2 
R2,R3 

up! 

R3,R2 

R1 

UP4 

Rl.tNRHERD 

UPJ 

tNRHERD.Rl 

RO 

UPl 

R0.R4 

UP3 

R4.R0 

UP^ 

PC 

STEIV, R2 

R2,R3 

DUNl 

R3.R2 

R1 

0UN4 

R1 . INRHERO 
0lil2 

•NRHERD.Rl 

RD 

0U^3 

R4^R0 

8 ^ 




-“.rr-r 

* w J wWm 


174353 UAIT: BIC 


;“UhIT- function ROUTINE 
;JSR R5.URIT 
•URrMD.DF.GWD 


24-SEP-76 14:11 PRGE 7-1 


IS ENDING CYLsflAX CYL 
NO, EXIT 

IS ENDING HEROsMRX HERO 
NO. EXIT 

YE§, FORCE URRP-RROUND 


;IS 0FFS£T=0 
NO 

;YES, CORRECT HERD VALUE 
.•STRRT OVER FROM TOP DOMN 


GET NEU SECT 
IS SECT IN RANGE 

IS «RD IN RANGE 
YES 

no" reduce hero 

INCREMENT CYL 

IS CYL IN RRNGE 
YES. EXIT 
NO, REDUCE CYL 


GET NEU SECT 
IS SECT IN RANGE 
YES 

NO. INCRERSE SECT 
DECREMENT HERO 

IS HERD IN RRNGE 
YES 

INCRERSE HERD 
DECREMENT CYL 

IS CYL IN RANGE’ 

YES. EXIT 

NO, INCRERSE CYL 


FUNCTION CALL 
;RESE’ the "NCUHr” 


sea U19 


*i»5:nC£C- 11-DTRW-A RKbll - RK06 DEVICE ROUTINE FOR flPG 
C’PtxM.Pll RKOb NON-I '0 FUNCTION ROUTINES 


H02 

rWCYIl 27(732: 


113 881 !? 

915 003SH, 


gg3S32* 009767 005232 
OOOsS* 009767 005972 


000205 


PC.CKDBSY 

PC.RINTV 

R5 


922 X399M* 052767 1 00000 

923 X3952 - 000205 


•NOWfilT" FUNCTION ROUTINE 


174330 NOUAIT: BI5 
RTS 


;JSR RS.NOUfilT 

tURITnO.OFLGUO 

R5 


930 003954* 042767 000020 176336 ODD: 

931 M3962’ X0205 


936 X3964 ’ 052767 X0020 176326 EVEN: 

937 X3472* X020S 


;“OOD- FUNCTION ROUTINE 

:JSR RS.ODD 

BIC tPRT.RPNRlV 

RTS R5 

;“EVEN" FUNCTION ROUTINE 

;JSR RE, EVEN 

BIS IPRT.RPNRIV 

RTS R5 


994 003474* 052767 000020 176314 BfilON: 

945 003502’ X020S 
9% 

947 

948 

949 

950 

951 

952 003504 ’ 042767 00X20 176304 BflIOFF: BIC 

953 003512’ X0205 RTS 


958 X3514 ’ 042767 002000 174260 

959 003522’ X0205 

960 

961 

962 

963 

964 

966 003524 * 052767 X20X 174250 COROFF: BIS 
96' :C3S22* X02C5 RTS 


:ORON: 


•BftlOfT FUNCTION ROUTINE 

;JSR R5,BRI0N 

i: lBflI.RPCS2V 

rs RS 


TBRIOFF- FUNCTION ROUTINE 
;JSR RS.BRIOFF 


C IBRI.RPCSBV 
S RS 

CORON” FUNCTION ROUTINE 

;JSR RS.CORON 

C »C0RFLG,DFLGUD 

S RS 


’COROFF- FUNCTION ROUTINE 


:JSR R5, COROFF 

•CORFLG.DFLGWD 

R5 


24-SEP-76 14:11 PRGE 7-2 


6E. 0020 


;WRIT IF BUSY & DO TERNINATION 
; RESET THE INTERRUPT VECTOR 
;EXIT IN-LINE 


FUNCTION CALL 

;SET THE "NOWAIT- F.AO 
;EXIT IN-LINE 


FUNCTION CALL 

•.SELECT ODD PARITY 
;EXIT IN-LINE 


FUNCTION CALL 

; SELECT EVEN PARIT^ 
:EXIT IN-LINE 


FUNCTION CALL 

;5ET THE BAI BIT 
;EXIT IN-LINE 


FUNCTION CALL 

; RESET THE BAI BIT 
:£XIT IN-LINE 


FUNCTION CALL 

; RESET THE COR INH P.AG 
;EXIT IN-LINE 


FUNCTION CALL 

;SET THE COR INH fLAG 
:Exr IN-LINE 



102 

-*3lNO£:-li-0’ftt»A-M Pkfcll - RKOfc DEVICE ROUTINE FOR flPG flACYll 27(732) 2H-SEP-7b iH:li P«GC 7-3 

D^RSRrt.Pil RKOb NON-rO FUNCTION routines - 


S7Q 

971 


97H 

975 

97b 

977 

978 

979 

980 
961 
982 


00353S’ 0S27b7 
003SN2’ 000205 


003S4N’ 0527b7 
0C3S52’ 000205 


CIOOOO 


010000 


I7b252 FNT22: 


17b242 FMT2Q: 


;-FnT22“ FUNCTION ROUTINE 

;J5R RS.FriT22 

BIC •CFNT.RPCSIV 

RTS R5 


;"FNT20*' FUNCTION ROUTINE 

;JSR R5.FflT20 

BIS •CFNT.RPCSIV 

RTS R5 


FUNCTION CRLL 

; SELECT 22 SECTORS 
:EXIT IN-LINE 


FUNCTION CRLL 

.•SELECT 20 SECTORS 
;EXIT IN-^INE 


SE; 3021 


I. 

/ 



SEi CC2E 


f1ftir€EC-ll-DTRbfi-fi RKbll - RK06 DEVICE ROUTINE FOR NPG 
DTRMrt.Pll RK08 NON-INTERRUPT TYPE I/O FUNCTION ROUTINES 


JDS 

HRCYli 27(732) 


.SBTTL RKOb NON-INTERRUPT TYPE 


•CRESET- FUNCTION ROUTINE 
;JSR RS, CRESET 


mi- 


?9liJ8 

CRESET: 

JSR 

INC 



3^ 

174232 


CLR 

CLR 

68"' 


052714 

032714 

001007 

005300 

100000 

000200 

CREl: 

BIS 

BIT 

BNE 

DEC 

»CCLR,(R4) 

•RDY,(R4) 

205 

RO 

003606’ 

003610’ 

003614’ 

m- 

100773 

004567 

003013 

000205 

005374 

174226 

20 J; 

BMI 

JSR 

.WORD 

JMP 

RTS 

CREl 

R5.ERRCS 

CRtO-ERMBAS 

SCUPGER 

R5 


003b24’ 

003b30’ 

003b3S’ 


i4Q’ 

42’ 


. Ji4i. 

ooabso 




003b{i2’ 

003684’ 


003674’ 

003700’ 


rSRESET" FUNCTION ROUTINE 
;JSR RS.SRESET 


004767 005040 
005267 176100 
005067 irmba 
005000 

052764 000040 000010 
004767 007306 
g^4 000200 

005300 

005316 

003031 

000177 174150 
000205 


SRESET: JSR 
INC 
CLR 
CLR 
BIS 
JSR 

SRESl: BIT 
BNE 
DEC 

m 

.WORD 

TW 

SRES2: RTS 


PC.CKDBSY 

HiSCNT 

ERRI 

RO 

•SCLR,RPCS2(R4) 

P^ORTOLY 

•roY-(R4) 

SRES^ 

RO 

S^i^RCS 

SRto-ERMBftS 

SCUPGER 

R5 


•DRESET- FUNCTION ROUTINE 
;JSR R5, DRESET 


003702’ 012^02 000005 
003706’ 000436 


DRESET: MOV 
BR 


iDCC0DE,R2 

NOICOM 


003710* 012702 000007 
003714’ 000433 


•UNLOAD- FUNCTION ROUTINE 
;JSR R5, UNLOAD 


UNLOAD: MOV 
BP 


•UC0DE,R2 

NOICOM 


24-SEP-76 14:11 PAGE 8 


I/O FUNCTION ROUTINES 


FUNCTION CALL 

•,G0 CK IF DEV IS BUSY 
; ADO 1 TO nlSC. CMNO CNT 

;SET THE CCLR BIT 

;I5 CONTROLLER NOW READY’ 

;YES 

; TIMED OUT’ 

;NOT YET 

;G0 ISSUE CRESET TIMEOUT ERROR 

;G0 TO ERR RET POINT IN MPG 
I EXIT IN-LINE TO USER’S PROG 


FUNCTION CALL 

;G0 CK IF DEV IS BUSY 
; COUNT HI SC CHNOS 
; CLEAR ERROR INDICATOR 

; PERFORM SRESET 

;IS CONTROLLER READY’ 
;YES 


;N0, ALARM AN ERROR 


FUNCTION CALL 

; SETUP DRESET CMNO CODE 

;G0 TO NO INT CMNO COM PROCESSING 


FUNCTION CALL 
:GET UNLOAD CODE 

:G0 TO NO INT CMNO COM PROCESSING 


’^HlNOEC-ll-D^RbP-fl RKbli - RKOb DEVICE ROUTINE FOR NPG 
C’RbRR.Pil RKOb NON-INTERRUPT TYPE I/O FUNCTION ROUTINES 


K02 

rWCYll 27(732) 


2M-SEP-7S 14:11 PAGE B-1 


SCO 0023 


IQHO 

iOMi 

1042 

1043 

1044 

1045 
104b 
1047 
1049 

1049 

1050 

1051 

1052 

1053 

1054 

1055 
105b 
1057 

m 

lObO 

lObl 

1062 

1063 

1064 

1065 

1066 
1067 
1066 

1069 

1070 

1071 

1072 

1073 

1074 

1075 
107b 
1077 


8 03716’ 012702 
03722’ 000430 


003724’ 012702 
003730’ 000425 


000011 


SPIN; 


000003 


003742’ 

0037%’ 

003750’ 

003756’ 

003762’ 

003764’ 

003766’ 

003770’ 

003774’ 

003776’ 

004002’ 


004767 

i25^7 

005067 


i4 
032714 
001007 
005300 
100773 
004567 
003047 
000177 
000205 


004732 

175772 

174054 

000010 

000200 


005214 

174046 


000010 


REL: 


RELl: 


REL2: 


;‘*SPIN“ FUNCTION ROUTINE 
;JSR R5,SPIN 


NOV 

BR 


•55C00E,R2 

NO I con 


;-pflKRCK- FUNCTION ROUTINE 
;J5R R5,PAKACK 


PAKACK: NOV 
BR 


•PAC0DE,R2 

NOICOM 


;-REL- FUNCTION ROUTINE 

;J5R R5,REL 

JSR PC.CKDB5Y 

INC niSCNT 

CLR ERR I 

CLR RO 

BIS IRLS.RPCSBCRN) 
BIT IRDY.CRN) 

BNE REL2 

DEC RO 

Bni RELl 

JSR RS.ERRCS 

.UORD RT6-ERnBAS 
JHP aCUPGER 

RTS R5 


;GET SPIN CODE 

;C0 TO NO INT CffC CON PROCESSING 


FUNCTION CALL 

;GET PACK ACK CODE 

•GO TO NO INT CMC CON PROCESSING 


; FUNCTION CALL 

;C0 CK IF DEV IS BUSY 
COUNT niSC CHNDS 
; CLEAR ERROR COUNT 

; PERFORM REL 

;IS CONTROLLER READY'’ 

;YES 


;N0, ALARM ERROR 


;NON interrupt I/O FUNCTION COWON PROCESSING 

;R5 = USER PROGRAM RETURN ADR 
R4 = RPCSl ADR 
R3 = PROG TBL ADR 
;R2 = FUNCTION’S COMMAND CODE 


i Wf o 

1079 

004004’ 

004767 

004660 


NOICOM: 

JSR 

1080 

004010’ 

005267 

175720 


NOIl: 

INC 

m 

ma- 

mi 

QM174 

000100 

000012 

b!? 

1083 

004026’ 

001004 




9NE 


0040X’ 

004034’ 


ra 



MOV 

JSR 

1086 

004040’ 

056702 

175750 


20$: 

BIS 

1087 

004044' 

052767 

010214 

000300 

173730 


BIS 

1088 

004052’ 

004054’ 

004060’ 




MOV 

1089 

012700 

000024 



MOV 

1090 

005300 



30$: 

DEC 

1091 

004062’ 

004064’ 

001376 




BNE 

1092 

004767 

007072 



JSR 

1093 

004070’ 

304076’ 

004100’ 

032764 

100000 

00QQ12 


BIT 

1094 

001002 




BNE 

1095 

004767 

0C7056 



JSR 


PC.CKD8SY 

MISCNT 

PC.ACOHSK 

•V^7r^R4) 

20S 

•PACQPE.(R4) 

pc.drWLy 

RPuSlV R2 

•CMDISU+ANYIOI,DFLGUD 

R2.(R4) 

•20., RO 

RO 

305 

PC.DRVDLY 

•SVAL,RPDS(R4) 

14$ 

PC.DRVDLY 


GO CK IF DEV IS BUSY 
ADO 1 TO MI SC. CMND CNT 
HOUSEKEEP Tic DISK 
IS THE VV BIT SET’ 

N.Y-20S 

ISSUE THE PACK ACKNOWLEDGE CMND 

MERGE CFMT/CDT 

SET CMND ISSUED FLAGS 

ISSUE SPECIFIED CMND 

SET UP DELAY CNT 

DELAY FOR A FEU MICROSECONDS 


IS RKDS VALID 
YES 

NO. DEuAY 


L02 


rWINOeC-ll-OTRW-« RKbll - RKOb DEVICE ROUTIfC FOR HPG 
DTRWW.Pll RK06 NOW-INTERRUPT TYPE I/O FUNCTION ROUTINES 


NfiCYll 27 C 7321 24-SEP-7b 14:11 PACE 8-2 


SEQ 0024 



000001 000012 I4S; 
I73bb0 


420b’ 
00H212’ 


3 

004577 

000205 


m 

00711b 


005044 

173b7b 

000011 

m 

173b02 

000010 

173b34 


73bl4 
30 


35S: 


SOS: 


bOS: 


BIT 

BNE 

JSR 

?ST 

BPL 

JSR 

.UORO 

JflP 

CNPB 

BNE 

BIS 

NOV 

TST 

rd 

JSR 

RTS 


•0RR,RPDS(R4) 

3SS 

4YI0I.DFLGUD 


PC.DRVCLR 

NOIl 

(R4) 

SOS 

R5.ERRCS 

NOlTER-ERNBPS 

aCUPGER 

R2.ISSC00E 

bOi 

•SPINFL.QFLGUD 

•3000.,^T0CNT(R3) 

OFLGUO 

bOS 

•WT4I0T.(R3) 

RS,3CI065Y 

RS 


IS DRIVE available 

ALloifi^H|8s \l RUN 
DO DRIVE CLEAR 
REPEAT COMMAND 
IS ’CERR’ ERROR BIT SET’ 

Y.N-SOS 

REPORT NON- I NT TERN ERROR 

GO TO HPG’S ERROR RETURN POINT 
IS THIS the spin COMMAND 
NO 

SET SPIN IN PROGRESS FLAG 
INITIALIZE 1 KCONO T/0 CNT 
-NOUAIT- PLAG SET’ 

5&t'uH!tING FOR I/O TERM FLAG 
RELEASE CNTRL UNTIL UNIT IS ON-lINE 
EXIT TO USER PROG 


f 1 flir€€C-ll-DTRSfl-fi RKbll - RKOb DEVICE ROUTINE FOR flPG 
DTRfaAA.Pll RKOb NON-INTERRUPT TYPE I/O FUNCTION ROUTINES 


M02 

NflCYll 27(732) 


1117 

me 

me 

1120 

1121 

1122 

1123 

112M 

1125 

112b 

1127 

1128 
1125 

1130 

1131 

1132 

1133 
113S 
1135 
113b 

1137 

1138 
1135 
llHO 

1141 

1142 

1143 

1144 

1145 
114b 

1147 

1148 
1145 

1150 

1151 

1152 

1153 

1154 

1155 
115b 

1157 

1158 
1155 
llbO 
llbl 
llb2 
llb3 
llb4 
llb5 
llbb 
llb7 
llb8 
llb5 
1170 
in 


004214’ 

00421b’ 

004224’ 

004232’ 

00423b’ 

004242’ 

004244’ 

004250’ 

004254’ 

004256’ 

Q042b0’ 

004262’ 

004264’ 

004270’ 

004274* 

004300’ 

004304’ 

004310' 

004316’ 

004320’ 

004322’ 

004326’ 

004330’ 

004332’ 

004334' 

00433b’ 

004^0’ 

004344’ 

004346’ 

004350’ 

004352’ 

004356’ 

004362’ 

004364' 

004366’ 

004370' 

004372’ 

004374' 

004376’ 

004400' 

004402’ 


;HOUSEKEEP DISK 

;JSR PC.ACOHSK 


010146 



ACQHSK: MOV 

042767 

000561 

173556 

ACORTY: BIC 

012763 

072460 

000030 

MOV 

116300 

000035 


MOVB 

020027 

000007 


CMP 

101405 



BLOS 

005267 

175472 


INC 

005367 

175462 


DEC 

000427 



BR 

010001 



IQS: MOV 

006301 



ASL 

060701 



ADD 

062701 

000100 


ADD 

112167 

000110 


MOVB 

111167 

000106 


MOVB 

056700 

175512 


BIS 

010064 

000010 


MOV 

016764 

175504 

000026 

MOV 

010501 



MOV 

005005 



CLR 

004767 

006614 


JSR 

010105 



MOV 

012601 



MOV 

000207 



RTS 

0101% 



ACQERR: MOV 

010246 



MOV 

004567 

004644 


JSR 

003562 



.UORD 

012602 



MOV 

012601 



MOV 

004577 

173472 


JSR 

004767 

004306 


JSR 

000715 



BR 

001 

376 


ATATBL: .BYTE 

002 

375 


.BYTE 

004 

373 


.BYTE 

010 

367 


.BYTE 

020 

357 


.BYTE 

040 

337 


.BYTE 

100 

277 


• BYTE 

200 

177 


.BYTE 

000000 



MYATA: .UORD 

000000 



OTHATA: .WORD 


24-SEP-76 14:11 PPGE 8-3 


S/R CALL 


SEQ 0025 


R5 = ADR AFTER USER PROG JSR 
R4 = RPC51 ADR 
R3 = PROG TBL ADR 


DESTROYS RO 
Rl.-(SP) 

•CitolSUISPINFLiSUOVTO! 

•ITinE,PT0CNT{R3) 

PCUROVfR3),RO 

R0.I7 

lOi 

DATAER 

ERRCNT 

ACQERR 

R0,R1 

R1 

PC.Rl 

•AtATBL-..Rl 

(R1)+.«YATA 

(RD.OTHRTA 

RPCS^/.RO 

Rg.RPC§2(R4) 

f^lV,RPnRl(R4) 

R5,R1 

R5 

PC, SO 
Ri.RS 
(SP)+,R1 
PC 

R1,-(SP) 

R2,-(SP) 

rs’errcs 

INVDVN-ERI1BAS 

(SP)+,R2 

(SP)+!r1 

R5,ac6PGER 

PC.CKDBSY 

ACfiRTY 

001,376 
002,375 
004,373 
010,367 
020 357 
040,337 
100,277 
200,177 


0 

0 


;HSKP FLAG BITS 


'SAVE R1 

Su6IER!I0ERR,DFLGUD 
SETUP INT TIMER 
GET MY UNIT • 

VALID UNIT 
N.Y-IQS 

a6j error counts 

•,G0 REPORT ThC ERROR 
;GET DISPLACEMENT INTO 
THE ATA TABLE FOR 
;THIS UNIT • 


STORE ATA BIT MASKS FOR 
THIS UNIT • 

SET BAI BIT IN UNIT • 
SETUP RKCS2 
AND RPMRl 
SELECT DRIVE 


; RESTORE R1 
;EXIT IN-LINE 
;SAVE R1 & R2 

STORE CURR STATUS & REPORT 
INVALID UNIT NR 
RESTORE R1 & R2 

;GU TO MPG’S ERROR RETURN POINT 
; CHECK IF DISK IS BUSY 


NAINOEC-ll 

OTRb<W.Pll 


1173 

117M 

iiP 

1178 

1178 

1180 

1181 

118P 

llbw 

118M 

1185 

1188 

1187 

1188 
1188 
1180 
1181 
1182 
1183 
1188 
1185 
11 % 

1187 

1188 
1188 
1200 
1201 
1202 
1203 
1208 
1205 
120b 

1207 

1208 
1208 
1210 
1211 
1212 
1213 
1218 
1215 
121b 

1217 

1218 
1218 
la 

m 

1223 
1 
1 

122b 

1227 

1228 


-DTRbA-fl RKbll - RKOb DEVICE ROUTINE FOR NPG 
RKOb INTERRUPT TYPE I/O FUNCTION R0UTINE5 


N02 

NftCYll 27(732) 
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5E3 002fc 


008810’ 

008818’ 

X8820’ 

008828’ 

008830’ 

008832’ 

00883b’ 


U08882’ 

0088%’ 

m8852’ 

00885b’ 

008882’ 

008%8’ 

0Q887O’ 

008878’ 

008500’ 

008508’ 

Sffilig’ 

008522’ 


008580’ 
82' 
88 ’ 
%’ 
008558’ 


0085bb’ 

008572’ 

00857b’ 



.SBTTL RKOb INTERRUPT TYPE I/O FUNCTION ROUTINES 
jlNTERRUPT TYPE I/O FUNCTION 


ROUTINES 


012702 

012701 

008757 

005287 

0107X 

0b27OT 

008087 

0187% 

0187% 

0157% 

082757 
0127% 
00^87 
00531b 
M1378 
005728 
032785 
X1802 
‘»67 
'87 
005387 
008587 
028887 


000123 

000235 

008212 

175288 

175232 

i93§08 

173302 

1733X 

000008 

178808 

100000 

000010 

178370 


178812 

178800 


000777 000008 

178388 

178388 

178338 

178288 

000008 173200 


012702 

000121 

READ: 

NOV 

012701 

000835 


NOV 

008787 

008288 

RDCOH: 

JSR 

W 

175278 


INC 

NOV 

082700 

175280 


ADD 

000187 

000858 


JHP 


:"REAO- FUNCTION ROUTINE 


JSR R5.REA0 
.UORO AO^ 
.UORD ADR 
.WORD CNT 
;.UORD DEV 


tRC00E!IE,R2 
1835. R1 
PC.CKDB5Y 
ROtNT 
PC.RO 

•BYR082-.,R0 

cnocon 


; "WRITE- FUNCTION ROUTINE 


JSR R5. WRITE 
.WORD AO^ 

.WORD AOR 
.WORD CNT 
.WORD DEV 


WRITE: NOV iWCODElIE.RB 

NOV 1235, R1 

WRCON: JSR PC.CKDBSY 

INC WRCNT 

NOV PC,RO 

ADD •BYWR+2-.,R0 

JSR RO,SAVREG 

NOV cyL-(^) 

NOV HEA6,-(5P) 

NOV SECT,-(SP) 

NOV 8(R5),STEIV 

ASR STEIV 

BIC ilOOOOO.STElV 

NOV IB.^-CS^) 

WR3: ASR STEIv 

DEC (SF) 

BNE WR3 

TST (SP)+ 

BIT i777,8(R5) 

BEO WRl 

INC STEIV 

WRl: JSR PC.STPCON 

DEC STEIV 

JSR R5.STPUPT 

CNP 8(SP).CVL 


FUNCTION CALL 

DATA ADDRESS (BITS 18-21) 
DATA ADDRESS (BITS 0 - 15) 
BYTE COUNT 
(NOT USED) 


SETUP READ CODE 

SET UP CNND FLAG WORD 

GO CK IF DEV IS BUSY 

ADD 1 TO READ CNND CNT 

SET UP ADR OF BYTES READ f (T 

;G0 TO CNND CONMON PROCESSING 


FUNCTION CALL 

DATA ADDRESS (BITS 18-21) 

DATA ADDRESS (BITS 0 - 15) 

BYTE COUNT 
(NOT USED) 

SETUP WRITE CODE 

SET UP CHfffl FLAG WORD 

GO CK IF DEV IS BUSY 

ADD 1 TO WRITE CNND CNT 

SET UP ADR OF BYTES WRITTEN CNT 


;SAVE RE 
•SAVE sT 


GS 

ARTING DISK AODR 


GET SIZE OF XFER TO WRITE 
DIVIDE BY S12 BYTES/SECTOR 
TO GET NR SECTORS 


IS THERE A PARTIAL SECTOR 
NO 

YES, USE ONE NORE SECT 

WIL^ THIS XFER DANAGE LAST TRACK 

;l/^E STEPUP TO GET ENDING AODR 
;DID CYL CHANGE 


•^irC€C-ll-C 


TRW-A RKbU - RKOb OevlC£ ROUTIfC FOR HPO 
RKOfe INTERRUPT TYPE I^'O FUNCTION ROUTINES 


B03 

HRCYll 27(732) 



:2S2 

1253 

laSM OOM7Q2- 012732 000125 
1255 0047X- C127Q1 001b2fe 

:2Sfc 0047:2* 300642 


173172 


UR2: 


RDHD: 


BTC 

NOV 

flOV 

NOV 

JSR 

JNP 

NOV 

NOV 

NOV 

ROO 

JSR 

.UORO 

JNP 


2?ip),«flO 

iA2 

^),SECT 

(P)^,SECT 

(^)4,)€R0 

RO.RE^G 

(^♦.SECT 

(SP)^,HERO 

(SP)*!CYL 

RSj CRRCS 

PRWA^RrCAS 

acup(XR 


;-ROHCr FUNCTION ROUTINE 

:JSR R5.R0HD 
;.UORO AOR 
;.UORD CNT 

NCV •RHC0DE!IE.R2 
NOV •1626, RI 

BR PDCOf 


2H-SEP-76 1H:11 P«E 9-1 


SE9 0027 


1 

I 

1 


;YES. RIRR«_ 
DID HERO 
;YES RL^ 
...JOIP^CT 


RRN 

I HERO CHRTCE 


i 

I^t^Sr^^wS^ss 


CHRr«£ 


; CORRECT STRCK 
; PRINT HAVE BRO ROORESS 

;(W TO NPC ERROR RTN 


function CRU. 

ORTA ROORESS (BITS 16-21: 
BYTE COtffT 

; SETUP RERO-tCROER COOE 

;SET UP CffC FLAG WORD 

:G0 TO CONNON READ PROCESSING 


nOIfCCC-ll-OTRbA-A RK&Il - RKOb OEVICE ROUTINE FOR NPG 
OTRbRfl.Pll RK06 iNTERfllFT TYPE I/O FUNCTION ROUTIfCS 


C03 


NftCYll 27(732 ) 2M-SEP-7b IMrll ?Wi 3-2 


1210 

1311 

1212 


gQ47lM* 012702 
0OH720‘ 012701 
00472M* 000t»52 



QOM^* 012702 
OOS73C’ 012701 
73b’ 0047b7 
Q052b7 
7%’ QlDTtB 
004750’ 052700 
004754’ 000450 


012702 
012701 
OOHTtt’ 004757 
004772’ 005257 
004775’ 000447 


QQSOOC’ 012702 
00^’ 012701 
005010’ 000755 


112’ 312702 
115* 012701 
305022* 000751 


000127 

000235 


URHD: 


000131 

000235 

003725 

174752 

174752 


URCK: 


000117 

00^ 

003575 

174734 


SEEK: 

SKCOH: 


000115 

002140 


000113 

30204C 


PE CAL: 


•WHO" FUNCTION ROUTINE 

JSR RS.IAHO 
.UOro PM 

.uoro 

.WORD CNT 

NOV tUHC00E!IE.R2 
MOV •235.R1 

BR URCON 


;-URCK- FUNCTION ROUTlfC 


JSR 

.UORO 

.uom 


R5.URCK 

(W 

ROR 

CNT 


NOV 

NOV 

JSR 

INC 

NOV 

ROD 

BR 


IUCC00E!IE,R2 

t235,Rl 

PC.CKDBSY 

ck4nt 

o^RO 

•iYCK*2-..R0 

CfCCON 


;**SEEK- FUNCTION ROUTINE 
;JSR RS.SEEK 


NOV 

NOV 

JSR 

INC 

BR 


pc.ck6bsy 

SKtNT 

CffXON 


•OFFSET- FUNCTION ROUTlfC 


;JSR 

:.UORO 


R5, OFFSET 
V^UE 


OFFSET: 


NOV 

NOV 

BR 


•OCODE!IE.R2 
•21^. R1 
SKCON 


.-RECRL" FUNCTION ROUTINE 

;JSR RS.RECRl 

NOV tfiCCOOE'IE.Ra 
NOV 12040. R1 

BR SKCON 


FUNCTION CRLL 
DRTR R^SS ( 
ORTR 9mSS ( 
BYTE COUNT 




; SETUP URITE^HEROER CODE 

;SCT UP cnrc flag uoro 

;G0 TO URITE CONHON PROCESSING 


FUNCTION CRLL 

DRTR ROORESS (BITS 15 - 21) 
DRTR ROOfCSS (BITS 0-15) 
BYTE COUNT 


SETUP URI1l-aCCK CODE 
SET UP CnC FLAG UORO 
GO CK IF KV IS flifiY 
SX 1 TO CHECK dfC COUN*’ 
SET UP ROR OF BYTES 
CfCCKED COUNT 
GO TO CffC CON PROCESSING 


FUNCTION CRLL 
•.SETUP SEEK COCE 

iSET UP cnrc f^rg uorc 

GO CK IF DEV IS BUSY 
ADO 1 TO SEEK CftC C0lf4T 
CO TO CNNO COftlON PROCESSING 


FUNCTION CRLL 
BINRRY OFFSET VALUE 

SETUP OFFSET CODE 

SET UP CNNO flag uoro 

GO TO SEEK CNfC CON PROCESSING 


FUNCTION CRLL 

SETiJP recalibrate code 

SET UP CNND FLAG UORO 

GO ^0 SEEK CNNO CON PROCESS:*^ 


:-S£uOPr FUNCTION RCL’INE 


•«:rCeC-ll-OTRW-« RKfeU - Rk06 device ROUlirC FOR ff>G 
C^RbRfl.Pll RK06 INTERRIPT TYPE I/O FUNCTION ROtTIfCS 


D03 

rWCYll 27(732) 


767 Q0527M 

767 00363H 
767 17715M 

17%70 



005102’ 

00510S’ 

005110’ 

005112’ 


SELDRI: 


0000C3 


016%7 00003M 172720 

0lb%7 000036 172714 
000202 

00H567 0OM106 
003575 

000177 172732 


5EL1: 


;JSR 

;.UORD 


R5. SELDRI 
0 CODE 


JSR 

JSR 

JSR 

INC 

NOV 

CrP 

BHI 

NOV 

NOV 

JSR 

NOV 

NOV 

RTS 

JSR 

.JORC 

JNF 


PC.SUPTflO 

pc.CKoesY 

PC.flCOHSK 

NlfcNT 

(R5)*,-(SP) 

fl^i.tSDNRX 

SElI 

R5.R2 

(S^)+.K5 

PC,S D 

Rpf«2(RM),nS(iR 

RPNR3(RS).NSaB 

R2 

RS.ERRCSl 

[5DNd-ERN9AS 

aCUPGEP 


PH-SEP-76 lN:il PRGE 9-3 


SC3 oon 


TO SELECT rCSSAGC FRON DRIVE 

SETUP R3 & RH 
C«CK if DISK IS BUSY 
HOUSCKCEP DISK 
COUHT mSC C0ff1RK)S 

fS^RfiNGE’ 

YF5. SAVE l«TURN ADDRESS 
GET CODE A^ SELECT 

;NSG A 
;NSG g 

: PRINT invalid NSG-SEL 
:GC 



C NPG’S ERROR RTN 


WFCIC-n-OTRbA-fl PKbll - RKOb DEVICE ROUTIfC FOR m, 
OTH«».Rll RKOb INTERRUPT TYPE I 0 FUNCTION ROliTItCS 


E03 


HRCYll 27(732 ) 2M-S£P-7b PRCE 9 -h 


SE; QC3 


; INTERRUPT TYPE I/O PtfCTION CONNON PROCESSING ROUTINE 
RS : RJR^OF RPC51 OEV REG 


R3 = PROG TBL ^ 
fS : conriRMr CODE 
Ri = coftMC Flag uoro 

RO = ROR OF BYTE COUNT, IF APPLICABLE 


;CMNO FLAGMORO FORMAT: 


13SB 

:3S0 

13S1 

1355 

1355 
1357 

1356 
1355 
I3b0 
1361 

l3bH 

1365 

1366 
*367 
1366 
1365 

1370 

1371 

1372 

1373 

l3ZIj 

1375 

1376 

1377 

1378 
1375 

1380 

1381 

1385 

i; 
i: 

1368 

1385 

:35C 


005116' 

005x38' 

005136’ 

005142’ 

005146’ 

005150’ 

005154’ 

m- 

005166’ 

QK174’ 

SKITE’ 

005202’ 

o^i^ 

005222’ 


010067 

004767 

010167 

056702 

010267 

032701 

001440 

012567 

032701 

? D1002 
12^ 
012500 

n 



001402 
012700 
032701 
001002 
042700 
010067 
1 



0052%’ 

305250’ 

305256’ 


010067 

005725 

032764 

301004 


17%44 

177066 

174636 

17%56 

174630 

000003 

174620 

XlOQO 

17%10 

010000 

010000 

000170 

XIOOO 

000001 

174554 


174540 

000001 


XOIX X0012 lOS: 


CHDCOfI: NOV 
CNCl: J5R 

NOV 
BIS 
NOV 
BIT 
BEQ 
NOV 
BIT 
BNE 
MOV 
NOV 
BIT 
BEQ 
BIT 
BEQ 
NOV 
BIT 
BTC 
BIC 
NOV 
CLC 
POfl 
NEG 
NOV 
BIT 
BEQ 
T5T 
BIT 
BNE 


5S: 


7S: 


BS; 


BIT 12 = 10000 - «H0 CONNANC 
BIT 11 = ^ = RECALIBWTE CONNANC 
BIT 10 = 2000 = TWO INTERRUPTS EXPECTED 
BIT 5 : 1000 : RDM) COftIRrC 


BIT 8 = 


BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

IT 

IT 


7 

6 

5 

4 

3 

2 


iiT J I 


RO.CNTADR 

PC,ACQHSK 

RllCURFLC 

RPtSlV.R2 

R2,CUWND 

t^Rl 

(re) + ,CL'RAOR 

•1000, Rl 

?S5)+,CURA0R*2 

(RS)+.RO 

^OOOO.Rl 

•CFMT,R2 

7S 

•120., RO 
•lOX.Rl 

8S 

•l.RO 

RO.CURPBC 

RO 

RO 

RO,CURCNT 

•i!ri 

lOi 

(R5)* 

•VV,RP0S(R4) 

20S 


4X s DO ECC CORRECTION IF ALLOWED 

2X = PERFORM RETRIES ON CMfC 

IX = OFFSET COMIRND 

040 = CftC TERMINATES WITH ATA 

020 = SET UP CYL/W)/SECT i 

010 = INCREMENT BYTE COUNTS 

004 = DATA TRANSFER CMC 

002 = 3 ARGi|CNT CMX 

001 = 4 ARGlfCNT CMHD 


SAVE ADR OF BYTE COUNT 

HOUSEKEEP THE DISK 

SAVE FLAGUD FOR TERMINATION 

f€RG£ CFHT 

SAVE CURR CftC CODE 

this CMND HAVE BUS ADR S WD CN’’ 




2 WORD XS ADR 
IS THIS A ROHC CMNO 
YES 

GET BYTE COUNT 
IS this a URHO CMNO 
NO 

SHOULD USE 20 SECTORS 
NO 

YES. GET NR BYTES OF HEADERS 

IS tHiS A ROHO 

YES 

MAKE SURE ITS EVEN 
SAVE POSITIVE BYTE CNT 
HAKE IT A WORD COUNT 

HAKE IT NEGATIVE 
SAVE IT 

THERE A 4TH WORD" 

Y.N-IOS 

BYPASS IT 

IS THE vv Br SE^' 

N.Y-201 


’«IfC€C-lI-OTRW-A RKbU - RKOt> DEVICE ROUTIfC FOR flPG 
DTRb«».Pll RKOb INTERRUPT TYPE I/O FUNCTION ROUTINES 


F03 

NfiCYll 27(732) 2M-5EP-7b 14:11 PACE R-5 


SE3 X31 



13^1 

13SS 

1 
1 

13S7 

r 

1 

14X 

1401 

1402 

1403 

1404 

1405 
14% 
1407 
i4oe 
140S 

1410 

1411 

1412 

1413 

1414 

1415 
141b 

1417 

1418 
INIR 

1420 

1421 

1422 

1423 

1424 

1425 
142b 

1427 

1428 
1425 
14X 

1431 

1432 

1433 

1434 

1435 

14% 

1437 

1438 
1435 

1440 

1441 
i44r 
144 


005344' 

005350’ 



005404' 

affi40b' 

0%412’ 

005414’ 

005434’ 


0054%’ 


0054b0’ 

g05%4’ 

005470’ 


012714 

000003 



NOV 

mil 

mu 


20S: 


032701 

OOOIX 



BIT 

W 




BEO 

NOV 

010054 

174455 

174470 

30S.- 

NOV 

NOV 

CLR 

012757 

003111 

X35S2 


NOV 

052713 

000010 



BIS 


000302 

172440 


BIS 

NOV 

004757 

005512 



JSR 

032757 

000001 

174444 


BIT 


000001 

174434 


BEQ 

BIC 

(H2757 

000302 

172405 


BIC 

mCr 

1724% 

005544 



JSR 

JSR 

0005% 




BR 

032701 

004000 


bOS: 

BIT 


000400 

172350 


BEQ 

BIS 

OOSThf 

005570 

1^3% 

000030 

blS: 

NOV 

TST 

100011 




8PL 


QQPQio 



BIC 

BIT 

X1410 




BEO 

m, 

004577 

0004X 

172324 



172352 


40S: 

JSR 

004757 

00331b 



JSR 

XQ205 



SOI: 

RTS 


032701 000020 
X1412 

01b7b4 172300 
00550b’ 0157% 172274 
005512’ 00031b 
:!05514’ llb7lb 17227C 



SUIORG: 


X002Q 


•PAC00£,(R4) 

ilDO.Rl 

?S)*,RO 

RQ.RPAS(R4) 

RTfrT.CURRTY 

rtryIp 

•lOTERH-ERHBAS, INTEAO 
tUT4lOT,(R3) 

•chdisuIrnyioiidoterh, 

R2,(W) 

PC.DfiVOLY 

lOTie.DIAFLG 

^IB. DIAFLG 
•CrCl5U!ANYlOI!DOTERfl. 
R5,9CI0eSV 
PC.ORVCLR 

ctidii 

•4000, R1 

bis 

•SPINFL.DFLCUiO 
•3000. ,PT0CNT{fi3) 
OFLGUO 
40S 

•WT4I0T,(R3) 

•4000, r1 
SOS 

•gINFL.OFLGUD 

R5,3CI08SY 

PC,PR0CTf1 

R5 


;5£T UP DEVICE REGS FOR I/O 

;JSR PC, SUIORG 

R4 = RPCSl ADR 
R3 = PROG TBU ADR 
R2 = CftC CODE 
R 1 = CriND FLAGWORD 


; ISSUE PACK acknowledge cnc 
GO SET UP REGS FOR I/O 

this the offset crtc’ 

r^tr^Ke OFFSET value 
SETUP OFFSET 

INIT TERHINATIOH ERROR HSG 
,kT HAITINC FOR I/O TERN FLAG 
DF^GWO iSET CrtC ISSUED FLAGS 
;ISSUE S^IFIEO CWC 
;UAIT FOR DRIVE RESPONSE 
;IS DRIVE BUSY’ 

;N0 

jYES, REMOVE COMNAND FROM 4PG 
DF^GUD 

ALLOW others TO RUN 
DO DRIVE CLEAR 
REPEAT COfflAND 
IS THIS A RECAL CNND 
NO 

YES, FLAG WAIT FOR RDY 
setQp INT TirCR 
-NOWAIT- BIT SET’ 

Y.N-40S 

T WAITING FOR I/O TERN 


fHlS THE RECAL CMNC 


NO 
YES 

GO TO EXIT 

WAIT FOR I/O TO COMPLETE 
GO PROCESS TERNINATION 
EXIT IN-LINE TO USER PROG 


S/R call 


DESTROYS RO 


BIT •20. R1 

BEQ IDS 

NOV CYL,RPDC(R4. 

fiov HEAC),-(SPi 

SlMB iSP) 

NOVB SEC’’. SP- 


NEED TO SET UP CYL /HEAD -SECT' 

Y.N-IOS 

l6ad CYL • 

GET head • 

PU” IN CORRECT BIT POSITION 
SE^ IN SECT • 


RK611 - RKOt KVICE ROUTINE FOR NPO 
C^RMR.Pll RK06 INTERRUPT^YPE I/O FUNCTION ROUTIfCS 


G03 

NRCYll 27(732) 


>5fe 3C55fc2 


fmnont. 

sSSSR 

LtUd 17M23(> 
177774 


016^4 174224 000004 

016764 174220 000002 
000207 3C1: 


(SP)^,RP0fi(R4) 

CURRO^RO 
•177^, RO 
RO 

CUftS?R^2^ RP9fi(R4) 
CURCNT.RPuCiRM) 

PC 


# 


24-SEP-76 14:11 P«G£ R-b 


5E; X32 


g^t’Sch BITS OF AOR 
RESET BITS ABOVE A17 
ALI^ BITS A16 S A17 
^T TfCN INTO CNNC CODE .40R0 
LOW BITS 0-15 OF m 


LOAD WORD COUN"^ 


EXIT in-line 


•Wirac-Il-D^RW-A RKbll - RKOb KVICE ROUTINE F'OR HPG 
0Tflb®.Pll RKOb INTERRUPT^YI^ I^O FUNCTION ROUTINES 


H03 


nftCYll 27(732) 


14bO 

i%l 

1464 
1%5 

1466 

1467 

1468 

1465 

1470 

1471 
142 

1473 

1474 

1475 

1476 

1477 

1478 
1478 
1480 
1401 

1482 

1483 

1484 

1485 

1486 

1487 

1488 
1408 

1480 

1481 

1482 

1483 

1484 

1485 
14% 
148' 
148o 
1488 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 
*508 

1510 

1511 


•BRDSEC" FUNCTION ROUTINE 


00S616’ 

005622* 

^1’ 

005644’ 

0056%’ 

005652’ 


005670’ 

005676’ 

005700’ 

005706’ 

005714’ 

005716’ 

005724’ 

005732’ 

005734’ 

005740’ 

0057%’ 

005754’ 

005760’ 

005766’ 

005770’ 

005774’ 


006014’ 

006022’ 

006024’ 

006030’ 

006032’ 

006040’ 

0060%’ 


006100’ 

006106’ 

306112’ 


88^7^ 

004767 

010700 

062700 

010067 

016702 

052702 

010267 

016300 

01^1 

160100 

020027 

103005 

004567 

003635 

000177 

032777 

001422 

032777 

001407 

016367 

016367 

000414 

016367 

016367 

000405 

005067 

016367 

012767 

005%7 

032764 

001004 

012714 

004767 

012767 

012767 

032767 

001003 

005067 

000403 

012767 

042767 

012701 

010167 

004767 

005064 

016767 

005067 

012767 

052713 

3527t7 


R5.8A0SEC 


003100 

i)N140 

176414 

174110 

174154 

17417b 

000121 

174144 

000G2C 

00001b 

001000 

003344 

172170 

000001 


8R05EC; 


i72l7b BftOi: 


000040 172166 


000244 

0002 % 

000240 

000242 

174034 

000016 

0004X 

174020 

OOOIX 

000003 

005162 

000632 

000002 

010000 

171760 

000001 

000001 

000635 

173712 

177410 

000016 

171720 

173710 

0C3111 

jCOOiO 

occ::2 


174066 

174062 

174050 

174044 


174030 

174024 

000012 


171776 

171772 

173772 


171750 

171734 


173712 

002774 

I7lbb2 


88012: 


88011: 

88013: 


88014: 


880141: 
860 142: 


J5R 

INC 

J5R 

NOV 

800 

NOV 

NOV 

BIS 

NOV 

NOV 

NOV 

sue 

CNP 

8HIS 

J5R 

.UORO 

JNP 

BIT 

BE(« 

BIT 

BEO 

NOV 

NOV 

BR 

NOV 

NOV 

BR 

CLR 

NOV 

NOV 

NEG 

BIT 

BNE 

NOV 

JSR 

NOV 

NOV 

BIT 

BNE 

CLR 

BR 

NOV 

BIG 

NOV 

NOV 

JSR 

CLR 

NOV 

CLR 

NOV 

BIS 

BIS 




PC,8CQHSK 

PC.RO 

•B^*2-..R0 

R0.CNT80R 

RWS1V,R2 

•rcooe!ie,r2 

R2.CURCND 

fWI08(R3).R0 

PRDI08(R3i.Rl 

Rl.RO 

RO.fNRBYTE 

^1 

RS.ERRCSl 

RI6tS-ERNB8S 

3CUPGER 

•NNVER.aCSYSFU 

88011 

•UNIN8P,aC5YSFU 

88012 

PRDI0V£R3).CUR8DR 

PRDI0V4-2(R3).CUR80R>^2 

88013 

PR0I0X(R3).CUR80R 

PRDI0X42(R3),CUR80P+2 

88013 

CUR80R 

PR0I0ft(R3).CUR80R+2 

•NRUORO,CU^NT 

CURCNT 

•VV,RP0S(R4) 

B80!4 

•P8C0pE.(R4) 

PC.O^Y 

•NftCYL-l.CYL 

•NRHE80-1.«80 

•CFHT.RPCSIV 

880141 

SECT 

880142 

•l.SECT 

•i6err,dflguo 
•635, r1 

ri,c6rflg 

PC.SUIORG 

rpAs(R4) 

RTRY.CURRTY 

rtryIp 

•I0TERn-ERNB8S.INTE80 

•UT4I0T,(R3) 

•CNDISL'IDOTERM.DFlGUC 


24-SEP-7b lH::i 


ORGE 4-7 


5E3 X33 


; CHECK IF DISK IS BUSY 


;HOUSEKEEP DISK 
;GET 800fi OF BYRO 


SETUP RKCSl 
with RE8C :0NN8NC 
S8VE C0NN8N0 
IS ROIC ^8RG£ ENC’UGH 
FOR ONE SECTOR 


:YES 

;N0. 6L8RN 


USING NENNGNN" 

NO 

USING UNIBLS NhP 
NO 


YES 


; SETUP WORD COUN-^ 

;IS VOlUNE VALID 
;YES 

;INIT ADDRESS 


GET CCNN8ND F»AG 
AND SAVE 
SET UP REGS 


•.£E’ WAriNG F.AG 


103 


•«irc€:-ii-u 




RK611 - RkO.S DEVICE ROUTINE FOR NPC 
RKOfe INTERRUPT iVPE I/O FUNCTION ROUTINES 


NftCYil 27(732 ) 2M-SEP-7fc 14:11 Pt^ R-B 


SEQ X34 


006120' 01021M 



1526 

1527 

1528 
I52S 
ISX 
1S31 

ilS 

1535 

1536 

1537 

1538 
1538 

1540 

1541 

1542 

1543 

1544 

1545 
15% 
*547 

1548 

1549 

1550 

1551 

1554 

1555 



006244' 

0062%’ 


006260’ 

006262’ 

006264’ 

006270’ 


006300’ 

006302’ 

006304* 

006306’ 

006310' 

006314’ 

006320’ 


006332’ 

006334’ 


1558 

1559 
156C 

1561 

1562 

1563 

1564 

1565 

1566 
*567 

1568 

1569 


006350’ 

0063S2’ 

006354’ 

006360’ 

nnc*'3c*3’ 




006372’ 
3376’ 
d4X’ 
006404’ 
006^ 10’ 
2064 :«* 


042767 

81414 

062767 

mo 

004567 

003310 

000177 

002224 

000030 

016304 

X7140 

012400 

004577 

007122 

000024 

005724 

0124X 

X1407 

004767 

004567 

004053 

mu? 

010703 

062703 

0^7 

0^7 

0124X 

100512 

010367 

010701 

062701 

160167 

004577 


m 

QOOOOl 

000302 

171670 

171662 

000002 

000001 

000002 

171574 

002764 

171616 

000450 

004636 


000CI6 

171576 

171566 

004602 


004010 

X2676 


NOV 


171522 

000354 


173666 

173656 

171630 


171610 

171602 

171600 

000026 


062703 

112723 

116400 

010367 


X5706 

000032 

173454 


XX16 

X0014 

000004 

171460 

00X06 

000054 

000001 

0CQC16 


_IT 

BEO 
BIC 
BIC 
J5R 
BR 

BA02: JSR 

BIC 

BOO 

CHP 

BUT 

JSR 

.UORO 

JNP 

3AD3: JSR 

JSR 
.UORO 
.UORO 
NOV 
NOV 
JSR 
.UORO 
NOV 
JSR 
.UORO 
JSR 
.UORO 
.UORO 
T5T 
NOV 
BEQ 
JSR 
JSR 
.UORO 
JNP 

BRC321: JSR 
NOV 
BOD 
CLR 

clr 

BBD32: NOV 
BHI 
NOV 
NOV 
BOD 
SUB 
JSR 

BBD32X: .UORD 
BOD 
NOVB 

nova 

NOV 


[BFLG 


R2.(R4) 

BB 02 
lORIB.DIBFLC 
•CNOI^fBNYIOI! 
g.aCIOBSY 

^acioBSY 

•06TERH.OFLCUD 

•jJgRR.6fLG14D 

I2.SECT 

R5,ERRCS 

cfcT-ERHBflS 

SCUPGER 

PC.CLRCQO 

rsIprintx 

bsA^ixi 

BSHX-BSH 

PR0I0B(R3).R4 

(R4)*.R0 

Rs.aetNBsc 

pNuna-. 

(R4)*.R0 

RS.aBtNASC 

PNUN1-. 

RS.PRINTX 

PNUI-WIXI 

PNUfIX-PNUN 

(R4)* 

(R4)+,R0 

3fl032i 

PC.SUPTBO 

RSJRRCSi 

TiftBP-ERNBBS 

SCUPGER 

PC.CLRCOD 

PC.R3 

•c6oflo-.,R3 

BB032X 

LUPCNT 

fR4)4,R0 

BB033 

R3,BB032X 

PC.Rl 

t8X32X-..Rl 

R1,BB032X 

RS.SBINBSC 

XXXX 

•6,P3 

t’.,(R3)* 

l(ft4).P0 

R3,Bfl632Y 


; ISSUE REBO DBTft 

;I5 DRIVE BUSY 
;N0 
:YE5 

dotern.dfCcud 


;flLLOU OTHERS TO RUN 
;TRY BGAIN 

;U«IT FOR XFER CONPLETE 

;^D errors occur 

I YES, GET NEXT SECTOR 

;CBN NOT READ LAST TRACK 

:G0 TO NPG’S ERROR RTN 
; CLEAR OUTPUT BUFFER FOR NSG 
;PflINT HEADING 


GET ROIO AOOR 
GET CARTRIDGE • 

AND CONVERT TO ASCII 


; PRINT CARTRIDGE • 


IGNORE UNUSED UORD OF DA’A 
IS PACK BN BLIGNNENT ONE 
NO 

SETUP R3 S R4 
YES, BLBRN 

GO TO NPG ERROR RTN 
CLR OUTPUT BUFFER FOR NSG 
GET BXR OF OUTPUT BUFFER 

FLAG NO BAD-SECTORS 

GET NEXT UORD OF DATA 
DONE 

PACK CYL 

GET AXR OF ASCII STORAGE 

AND NAKE RELATIVE 
CONVERT CYL TO ASCII 
STORE RELATIVE ADDR HERE 
GET AOOR OF NEXT VAuUE 
PACK CONNA 
PACK TRACK 

GET REL ADDR FOR Dm^P 


'«INOeC-ll-D''Rt>fl-A RKbll - RKOb DEVICE ROUTINE FOR NPG 
DTRSdW.Pll RKOb INTERRUPT TYPE I/O FUNCTION ROUTINES 


J03 

NRCYll 27(733) 


oobsat’ 

mw- 

008440 ’ 


8^1 

180187 


458’ 
482’ 
008%4’ 


008538’ 


082^ 

W 

082701 

180187 

W 

082703 

U2Z23 


028727 

88^ 

001447 

052787 


008584’ 

008800’ 

0 08808 

QQ8814’ 

008818’ 

008824’ 


008840’ 

008842’ 

008844’ 

00^50' 

008852’ 

008854’ 

008858’ 

008882’ 

008884’ 


000014 

000004 

171420 

000008 

000054 

177400 

000018 

000014 

000004 

171358 

000008 

000040 


173278 000003 
177840 

OOOO’^U 173254 


008878’ 

008704' 


000024 

004587 

000853 

005787 


004587 
002300 

7 

001112 

000102 

004587 

002387 

177753 

000404 

004587 

002324 

177771 

QQ4787 

004787 

042787 

000205 


000040 

004318 


004308 


177572 


Bft032Y: 


BR032Z: 


173244 


BR0322: 


BR033: 


000040 173208 


000040 

004250 


004240 


004230 


004218 


003432 

002110 

000040 


173178 


BRD331; 


BflD41; 


ROD 

novB 

nov 

BIC 

MOV 

MOV 

ROD 

sue 

JSR 

.WORD 

ROD 


BIS 

JSR 

.UORO 

.UORO 

JSR 


173118 


BIS 

JSR 

.UORO 

.UORO 

JSR 

.UORO 

.UORO 

JSR 

.UORO 

.UORO 

BR 

JSR 

.UORO 

.UORO 

JSR 

JSR 

BIC 

RTS 


•SAoi2Y-.,Rl 

Rl,BR032Y 

•8,R3 

•’.,(R3)+ 

(rAW.ro 

•177460. RO 
R3,BR032Z 

pc!ri 

•Bto32Z-.,Rl 

R1.BRD32Z 

RS.aeiNRSC 

X)«X 

•8,R3 

•’ ,(R3)* 

•’ .(R3)* 

LUPiNT 

LUPCNT.13 


DIRFLG 


•PBSH.DIRFLG 

RS.PRINTX 

bsAero-prixi 

BSHEX-BSHERO 

RS.PRINTX 

co6flo-prixi 

88 . 

BR0321 

BR032X 




DIRFLG 


IPBSH.OIRFLG 

rs.prIntx 

BSfCRO-PRIXl 

|§CX-BSHERO 

fe.PRINTX 

COOFLD-PRIXl 

^Iprintx 

EOftS-PRIXl 

EOBS-EOfiSX 

BR041 

RS.PRINTX 

NONE-PRIXI 

NONE-NONEX 

PC.SUPTRD 

pcIproctm 

•PBSH.DIRFLG 

R5 



; SETUP R3 S R4 
;PROCESS TERMINATION 


■WiNOeC-ll-DTRfcA-fl RKbll - RKOb DEVICE ROUTINE FOR ff>G 
CTRbA«.Pll RKOb INTERRUPT TYPE I/O FUNCTION ROUTINES 


KG3 

HRCYU 27(732) 


2M-SEP"7b 14:11 PRGE S-IC 


SEO 0C3b 


b2b 
7 


b3l 

b32 

ib33 

lb3M 


00b70b’ 012700 
Q0b7l2* QlQTQl 

00b722’ 005300 
OOb72M’ 001375 
00b72b’ 00G207 


OOOOMl 

C0S32b 


;C£T fiODR OF BUFFER 


jSUBROUTINE TO ZERO BUFFER USED TO CONTAIN ASCII OF BAD SECTOR INFORNATION 

dLRCOO: NOV 
NOV 

CLRCl: CLR 
DEC 
BNE 
RTS 


133., RO 

•?6o^ld-.,ri 

(Rl)> 

RO 

CLRCl 

PC 



'WirC£C-ll-DTRt»A-A RKfcll - RKOfe DEVICE ROUTINE FOR NPG 
DTRfeAA.Pll RK06 INTERRUPT SERVICE ROUTINE 


L03 

fIftCYll 27(732) 


2H-SEP-7fc lH:ll PRGE 10 


SEQ 0037 


lb3b 
Ib37 
1 
1 

IbHO 

IbSl 

lb42 

lb43 

lb4M 

IbHS 

IbHb 

lb47 

lb48 

lb4S 

IbSO 

IbSl 

IbS2 

lb53 

lb54 

IbSS 

IbSb 

lb57 

IbbO 

Ibbl 


.S8TTL RKOb INTERRUPT SERVICE ROUTirC 


QObTMO’ IZifeSO 
OOb7M2’ 005^7 
0087%’ 004787 
008752’ 004787 

m' S8SU 

008784’ 032701 
008770’ 001408 

007000’ 

007004’ 

007008’ 

007014’ 

007022’ 

007024 ’ 

007®2' 

007034’ 

m’ 

007050’ 

007054’ 


RHPINT: 


004787 

000407 

012787 

052787 

000487 

032787 

001008 

042713 

m, 

018701 

005714 


173014 

003352 

004204 

172840 

002000 

002000 

004138 

003370 

000004 


002088 

173000 


000001 172570 


000010 

000001 

172714 


172754 


RHPll: 

RHPl: 

RHP2: 


1882 

1883 

W 

100554 

018700 

172542 



1884 

007064’ 

000300 




1885 

007088’ 

032701 

000040 



1888 

007072’ 

001422 




1887 

007074’ 

032787 

040000 

172508 


1888 

007102’ 

007104’ 

001007 




1884 

032701 

001133 

002000 



1870 

M7110’ 




1871 

007112’ 

012787 

003157 

001782 


1872 

007120’ 

000430 




1873 

007122’ 

038700 

175258 


RHP23: 

1874 

007128’ 

001018 




1875 

007130’ 

012787 

003137 

001744 


1878 

007138’ 

000421 




1877 

007140’ 

QQ7144’ 

038700 

175240 


RHP24: 

1878 

001412 




1874 

0071%’ 

007154’ 

007182’ 

012787 

003178 

001728 


1860 

052787 

000004 

172840 


1881 

000407 



RHP211 

1882 

007184’ 

007172’ 

007200’ 

052787 

000004 

172830 

1883 

052787 

000002 

172822 

RHP21: 

1804 

000508 




1885 






1888 





Iexit 

1887 

1868 

007202’ 

007210’ 

007214’ 

052787 

000001 

170572 

AhP8: 

1884 

042713 

042787 

000010 


RHP81: 

1840 

000002 

172800 


1841 

QO'222’ 

032787 

000004 

172572 



.UORO 

INC 

JSR 

J5R 

TST 

BMI 

BIT 

BEQ 

BIC 

CLR 

JSR 

6R 

NOV 

BIS 

BR 

BIT 

BNE 

BIC 

BIS 

BR 

NOV 

TST 

BMI 

MOV 

5UAB 

BIT 

BEQ 

BIT 

BNE 

BIT 

BNE 

NOV 

BR 

BIT 

BNE 

MOV 

BR 

BIT 

BEQ 

MOV 

BIS 

BR 

BIS 

BIS 

BR 


BIS 

BIC 

BIC 

BIT 


gs* 

IStRT-. 

INTCNT 
PC.SUPTRO 
PC. DR VOL Y 
IR^:DS 
RHPl 

•2000, R1 
RHPll 
•2000, R1 
R5 

PC.SO 

PfAl 

•NSVRL-ERMBAS, INTEAD 

•NDC.DIAFLG 

RHP8 

•DRA.IRKDS 

RHP2 

«HT4I0T.(R3) 

•0RIB,0tAFLG 

RHP82 

CURFLG.Rl 

(R4) 

RHP3 
IRKAS, RO 
RO 

•4Q.R1 

rhpN 

•DI.ICSl 
RHP23 
•2000, R1 
RFPbc 

•NODI-ERMBfiS, INTEAD 

RHP8 

MYATA.RO 

RHP2li 

•NORTA-ERMBAS, INTEAD 
RHPb 

MYATA.RO 

RHPgl 

•UXPATA-ERf«AS,INTEAD 

•NDC,DIAFLG 

RHPb 

•NDC,DIAFLG 

•NEE.DIAFLG 

RHP3l3 


•lOERR.DFLGUO 

•WT4I0T.{R3) 

•NEE,DIAFLG 

•NDC.DIAFLG 


sej’skies-s 

: ADO 1 TO INTERRUPT CNT 
;SET UP PROG TBL & RPCSl ADR’S 

;IS REGISTER VALID’ 

;Y£S 

•IS THIS 2N0 INTERRUPT 
;N0. ALARM 

''eS, select drive 


CHECK DI & ATN BITS 
ALARM 

FLAG NEED DRIVE CLR 

IS DRIVE AVAILABLE’ 

YES 

CLEAR HATING FOR I/O 
FLAG DRIVE IS BUSY 
EXIT UNTIL LATER 
GET THIS CMND’S FLGUD 
IS ’CERR’ BIT SET’ 

YES 

GET ATA BITS 

IS COMMAND SUPPOSED TO SET ATA’ 
NO, CHECK EXTRA ATA 
IS 01 SET’ 

YES, CHECK FOR ATA BIT 
IS Another interrupt to arrive 

YES, WAIT FOR 2ND INT 
NO, SETUP ERROR MSG 

IS NY ATA SET’ 

YES, TEST FOR ERRORS 
NO, ALARM 

;IS MY ATA SET’ 

;N0. TEST FOR ERRORS 
YE§, ALARM 
;FLA4 need drive CLR 

;FLAG NEED DRIVE CLR 
;FLAG NO ERRORS EXPECTED 


;SET TERM I/O ERROR FLAG 
.'RESET WAITING FOP 1^0 TERM 

; SHOULD DO A DRIVE CLR 


'1»^lN0eC-ll-DTRt>A-fi RKbll - RKOb DEVICE ROUTINE FOR NPG 
OTRb#W.Pli RKOb INTERRUPT SERVICE ROUTINE 


MD3 

NRCYll 27(732) 2H-SEP-7b IN: 11 PRGE 10-1 


SEQ 0038 


lbS2 

lbS3 

IbSN 

lb95 

lb% 

1897 

lb98 

lb99 

1700 

1701 

1702 

1703 
170H 
1705 
170b 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 
171b 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 
172b 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

17! 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 
174b 

1 7147 



0072X’ 

007232’ 

00723b’ 

007244’ 

007280’ 

0072bb’ 

007272* 

00727b’ 

007302’ 

007310’ 

00731b’ 

007324’ 



001405 
004787 
042787 
7 

,1428 
18448 
052784 
004787 
01^4 
012^4 
052787 
042787 


^338’ 
007340’ 
0073%’ 
00735 2’ 
007358’ 
007384’ 
007388’ 
QQ7374’ 
007400’ 
007404’ 


007410’ 

007418’ 

007424’ 

M742b’ 

007434’ 

007438’ 

007442’ 

007450’ 

007452’ 

007458’ 

007484’ 

007488’ 

007472’ 

m- 

007510’ 

007512’ 


007518’ 


007540’ 

007542’ 

007550’ 

007558’ 


004012 

000004 

000010 

000010 

000040 

003870 

000010 

'“113 


!7i: 

m2787 

001407 

042787 


1787 
032787 
001403 
018487 
042714 
004087 
000177 


052767 

032787 

001141 

032787 

ni402 

000187 

032787 

001402 

000187 

032787 

001402 

000187 

032787 

miii3 

032787 

X1402 

-w 


000010 

005870 

OOOOiO 

000020 

000020 

003834 

003872 

000004 

000002 

K 

170484 


000020 

010420 

100000 

000530 

024000 

000472 

037400 

000458 

140000 

004070 

000432 


172558 

172550 


OOOOIO 

170472 

172504 

000030 

172484 

172454 

172404 

172410 


172404 

172200 

172170 

172140 

172134 

172120 

172112 


BEQ 

J5R 

BIC 

RHP812: BIT 
BEQ 
NOV 
BIS 
JSR 
MOV 
MOV 
BIS 
BIC 
MOV 
BIS 

RHP813: BIT 
BEQ 
BIC 
JSR 
JSR 

RHP611: BIT 
BEQ 
MOV 

RHP814: BIC 

RHP82: JSR 
JHP 


RHP812 

PC.DRVCLR 

•n6c,dirflg 

•NRC.OIRFLG 

RHP 8 I 3 

RPCS2(R4).-(SP) 

fSCLR,RPCS2(R4) 

PC.Dfmv 

(S^)+.RPCS2(R4) 

•RCC06e,(R4) 

•SPINFL.OFLGUO 

•NRC.DI^^LG 

•3006..PT0CNT(R3) 

•WT4I0T.(R3) 

•NCC.OIAFLG 

RHPbll 

•NCC.DIRFLG 

PC.CtRLCL 

PC,DRVCLR 

•4'CURFLG 

RH^14 

RPWC(R4),FINCNT 
• IE;JR4) 
RO.ftESREG 
ORTNINT 


;N0 

;TES 

;00 I NEED fi RECRL 

;N0 

;YES 


OUTPUT RECfiL 
PREPARE FOR INT TIMEOUT 
TO TEST ORDY BIT 
I4HEN HERDS ARE HOME 
FLAG STAY IN MPG UNTIL DONE 
DO NEED CONTROL CLR 
NO 
YES 
CCLR 

DRIVE CLR 

THIS A DATA TRANSFER CMND’ 
NO 

SAVE FINAL WORD COUNT 
REMOVE IE 

RESTORE ALL REGISTERS 
EXIT FROM INTERRUPT 


ANALIZE ERROR CONDITION 

ftHP3: BIS •NCC.DIAFLG 

RHP313: BIT •DTElHVRC'FMTE, IRKER 

BNE CKRTRY 

BIT tOCK, IRKER 

BEQ RHP3i5 

JMP CKCORR 

RHP31S: BIT ICTO! SPAR, ICS 1 

BEQ RHP31 

JNP HARDER 

RHP31: BIT fUFE'MOSIPGE'NEM'NED’UPE 

BEQ RHP311 

JMP HARDER 

RHP311: BIT tDLT'UCE.ICSE 

BNE CKRTRY 

BIT lACLOIDSLJDROTJWRL.IRKDS 

BEQ RHP312 

JMP HARDER 


FLAG NEED CCLR 

DJD OTHER ERRORS OCCUR’ 

YES, CHECK RETRIES 
DID DATA ERROR OCCUR’ 

NO 

DID CTO OR SPAR ERRORS OCCUR’ 

NO 

YES 

ICS2 ;ANY RKCS2 ERRORS’ 

NO 

YES 

DID DLT OR UCE OCCUR’ 

YES, CHECK RETRIES 
:AN^ RKOS ERRORS’ 

;l^0 
YES 


032787 

087357 

172100 

RHP312: 

BIT 

001402 

000187 

000418 



BEQ 

JHP 

032787 

000002 

172282 

RHP314: 

BIT 

mioio 




BNE 

012787 

003340 

001332 


MOV 

052787 

000020 

172244 


BIS 

000187 

177420 



JHP 


RKERBTs I LF ! SK I ! rO^!D^ ! DTYE ! ECH ! BSE ! COfe ! IDAE ! MLE ! OP I ! UNS 


•RKERBT, IRKER 
RHP314 
HARDER 
INEE,0IAFLG 
RHP4 

•UNKERR-ERMBAS, INTEAD 

•NCC.DIAFLG 

RHP6 


ANY RKER ERRORS’ 

NO 

YES 

ARE ERRORS EXPECTED 
NO 

SETUP FOR UNKNOWN ERROR 
FLAG NEED CCLR 


I SERVICE RDHD COMMAND 


f1flIfCEC-ll-0TRbA-A RKbll - RK06 DEVICE ROUTINE FOR MPG 
OTRWW.Pll RKOb INTERRUPT SERVICE ROUTINE 


N03 

MftCYll 27(732) c 


761b’ 

wv7b22’ 
007636’ 
007630’ 


007640’ 


X7662’ 

W- 

007676’ 

007702’ 

007710’ 

00771M’ 

007716’ 

007722' 

007726’ 


m 

§i6^ 

004777 

000301 

004777 

016401 

004777 

004777 

01b4Ql 


001000 

000200 172022 


003521 

177370 

172156 

172012 

170252 

170244 


000301 

005567 

062767 

005367 

00 ^ 

0001 ^ 

010067 

000476 


170234 

170226 

m 

172006 

000006 

172066 

177266 

172046 


007730’ 005767 172054 

007734’ 001054 
007736’ 005767 172044 

0Q7742’ 00 1502 
007744’ 032767 100000 


007752' 

007754’ 

007760’ 

0C7762’ 

007770’ 

007772' 

Q07776’ 

010000 ’ 

010006’ 

010010 ’ 

010014’ 

010016’ 

010024’ 


U01403 


171764 


032767 

001403 

005267 


001403 

005267 

000424 

032767 

001403 


1749 Q1Q026’ 


171720 

17^ 010032’ 

(2)0415 


leon 010034’ 
iici 010042’ 

032767 

001403 

100000 

1802 010044’ 

005267 

171704 

1B03 010050’ 

000406 



ftHP4: BIT 11000, R1 

KQ RHP61 

BIT lOR.ICSc 


001274 


172014 

170110 


' BNE 
MOV 
JMP 

RHP41: MOV 
MOV 
JSR 
SUflB 
JSR 
MOV 
JSR 
5UR6 
JSR 
MOV 
,JSR 
/SURB 
• JSR 


RHP42: 


•0R,ICS2 

RHPHl 

•ONRRH-ERMBRS, INTERD 
RHP6 

curror.ro 

IRKDB.ftl 

PC.aPUTBYT 

R1 

PC.3PUTBYT 

RP6B(R4),R1 

pc.apuTBn 

R1 

PC.aPUTBYT 

RP6B(R4),R1 

PC.aPUTBYT 

R1 

PC.aPUTBYT 

•6’BYRD+2 

BYftD 

•6,SIZE 

CUftPBC 

RHP42 

RHP61 

RO.CURROR 

CKftl 


DETERMINE WHICH ERROR SHOULD BE RETRIED 


171646 


tKRTRY: TST 
BNE 
TST 
BEQ 
BIT 


010000 171634 

171750 

000400 171616 

171734 

000020 171600 


171562 


RTRYIP 

55S 

CURRTY 

HRROER 

•DLT,ICS2 


425 

gLTCNT 

•DTE.IRKER 

445 

OTECNT 

555 

•HVRC.IRKER 

465 

HCRCNT r 

555 

•FHTE.IRKER 

505 

FERCNT 

555 

•OCK.IRKER 

525 

PCKCNT 

555 


-SEP-76 14:11 PAGE 10-2 


SEQ 0034 




RKbll - RKOe DEVICE ROUTINE FOR 
RKOE INTERRIFT SE^ICE ROUTINE 


0100S2’ 032767 
OlOOSi’ 00JNO2 
010062’ 00S2^ 
oiggw’ 

oio^’ 

OIOIOH’ 

QIQIIO’ 

oioim; 

oioioH’ 

010142’ 

010144’ 000167 

SiSiS: 

8i8ilS: mi 


OSOOOC 171540 

171670 

171714 

003215 OOlOOQ 
171650 

003124 

171642 

175336 

072460 000030 
1772X 

002002 1714% 






010312* 

010322* 01 

Si^: 

010332* 

:i0334* 

:i:336 ’ 3062X 


171634 


00 2 000 167602 
010000 

rxnioo 000014 
000032 

003237 0006% 
000030 010041 
003263 000626 
000002 
171512 


001000 


000030 


177760 


HARDER: 

BEO 

JSETER: 
CKCORR: BIT 

BTC 

BIT 

BTC 

TST 

BTC 

HOV 

70S: CNP 

BIOS 

nov 

BR 

BOS: fWV 

RSL 
ROD 
BEO 
CLP 
MOV 

055: CHP 

BIOS 
ROD 

905: TST 



B04 
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tUCE.ICS2 

55S 

UCECNT 

CURRTY 

S^YEXH-EWBRS. INTERO 

JSETER 

RETRY? 

R^IP 

PC.CTRLCL 

PC.ORVCLR 

CUftCfC.fe 

PC.SUIORC 

•ltlfC,PT0CNT(R3) 

R2,(R4^ 

Rm 

t|g^!SKI.IRKER 

•TAC.DIRFLG 

KMrb 

•CORFLC.DFLCM) 

CKRTRV 

•CF«T.(R4) 

CKRTfrt' 

•E^J«R(R4) 

aorrftV 

RPEC2(R4) 


•INVPRT-ER?«RS, INTERD 

gCl(R4), •10041 

•INVPOS-ERtBRS. INTERO 
JSETER 
RPWC(R4),R5 
RS 

CURP9C.R5 

CKRTRY 

•ii2..-(5P) 

^(S^) 

(pJ.Rl 

(SP)> 

RPECKRHi.RC 

RO 

•i^60.R2 

R2.RG 

RO 

RO 

RO 


MCE ERRORS 

M13o« 

OECRO^ 


SET UP 
GO TO i 


a cotfiT 

RETRY COUNT 

ffo’ (Y^^) 

RUSTED ftETRlES ERR NSC hC® 
R EXIT 

ETRY TOTAL CNT 
IN PROGRESS PcRG 


«CQ CNT 

Sn retry JN PROGRESS PcRG 

clear controller 

CURR WIVE 
CP CUW CNTC IN R2 
SET IF OEV REGS 
HSKP T/O COUNT 
RE-ISSUE TfC ORIG CfIND 
GO TO INT EXIT 

DID ROORESSING ERROR OCCUR 
NO 

YES. FLAG rCED RECRL 
CO to EwwTexit 

CORON STATEfCNT IN EFFECT’ 

Y.N-CKRTRY 

lA 18 BIT UORD NOOET 

N.Y-CKRTRY 

iS THIS A HARO ERROR 

YES, retry but no CORRECTION 

ECC BIT PATTERN = 0’ 

S^T UP INV BIT PATTERN ERR NSG ADR 

TOO BIG’ 

S^TUP INV BIT POSITION ERR NSG ADR 

GO TO ERROR EXIT 

GET RENAINlfC NEG UORD CNT 

rm IT A BYTE CNT 

ADO IN ORIG POS BYTE CNT 


KAC^ START OF BAD BLOCK’ 

otO BLK LNGTH to DATA DISPL 
REDUCE BYTE READ CNT 
(iO^ IT NOU 


CORRECT STACK 


value 


„ A SHIFT COUNT 

CL&R^|h!fI CN?”BI?r?N BIT POSITION 
CONVERT BIT POSITION TO A WORC 
DISPL INTO the data IN THIS 
BLOCK 




ircec-1 

^RbflA.Pi 

IBCtO 0 

isbH 01 
iSbS 01 
18(4 0 
10^ 0 
1886 0 
1889 0 

1870 0 

1871 0 
1972 0 
1873 0 
187M 0 
i07S 0 

1876 0 

1877 0 

1878 0 

1879 0 

1880 0 
1881 0 
1882 0 
1883 0, 
188H 
1885 
1888 

1887 

1888 

1889 

1890 

1891 


894 0 

895 0 


1896 010%8 
1899 Q 
19CX} 0 
1901 0 


9(^ 0105 

907 01 

908 0 


909 0 

,910 0 
,911 0 
,912 0 
,913 0 
.9:-4 : 

Q Z 
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SE3 OOHS 


CORRECT STRCK 

SAVE LOU lb BITS IN WORK AREA 
fsOLATr UP TO 32 UORO OFFST 
SET ADR TO SEl^CT PAGE 4 
SET iF SHirrcNT 
SHIFT AOR 1 BIT 

COT HI IS BITS IN 1 UORC’ 

Y.N-lOf 

sAvE page 4 STUFF 

SET PAGE 4 TO USER'S ARREA 

GET DATA WORD READ 
RESET PATTERN’S BITS IN UORC REAC 
RESET WORD READ BITS IN PAT MORE 
^T RENAINlf^INGLE BITS BACK 14 
RUNNING UNDER NEN ItCmT? 

Y.N-30S 

RESTORE PAGE 4’ S REGS 
EXIT IN-LINE 


I 


Skbi: “-.ot n?vicf Rouiirc for rK 
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SE3 0043 


•SBTTL SUBROUTIfCS FOR RKOb FUNCTION ROUTIfCS 


: CHECK IF DEVICE IS BUSY RNO WRIT IF IT IS 


OlObTO’ 

m- 

010702’ 

010706’ 

010^’ 

8{b^’ 

010736* 

Q1Q?*2’ 

010^’ 

010764’ 

8 i 8 ^: 

010772’ 

010776’ 

011004’ 


004577 

000772 

032767 



16767 


im 

010567 

162767 

000207 


0Q14X 

OOOIX 

167140 

000400 167064 

000010 

000002 167046 
000044 

167056 000012 
1|^ 000006 


170766 

000004 170760 


CKDBSY: JSR 

8eo 

151: JSR 

205: ilT 


BEQ 

JSR 

BR 

305: nOV 


405: .UORO 

455: .UORO 


PC, CKDBSY 


S/R CALL 


; DESTROYS R0.R3,R4 
;0N EXIT; r 5 = PROC TBL AOR 
R4 = RPCSl ADR 


PC.5UPTA0 

RS.aCIOBSY 

loi 

gPINFL.DFLGUD 

•U?4I0T,(R3) 

155 

^TERn.OFLClC 

^PROCTH 

lOi 

IVCTA0.405 

roax 

xxx'; 

RKf'iNT-. 

RS.ERHAOR 

•4,ERRA0R 

PC 


;S£T UP PROG TBL i PPCSl ADR’S 
;INT ENABLE ON’ 

;^N-205 

; RELEASE CONTROL 
:G0 CK AGAIN 

;D0 I HAVE AN SPIN IN PROGRESS’ 

ikf’u^TINC FOR I/O TERN 

;G0 RELEASE CONTROL 

;HAVE^ PROCESS PREV TERNINA^ION’ 

;Y.N-3a 

;G6 PROCESS TERMINATION 
:&0 CK INT ENABLE AGAIN 
; STORE INT VECTOR ADR 
;STO« P»W STATUS UW» 

5C^T jT INTENT ^CTOR 
; INT VECTOR ADR 

; ^ INT ROUT ADR 

;SAVE CURR USER STNN^ AC® 

;EXIT IN-LINE 


011006’ 

011010 ’ 

011012 ’ 

011020 ’ 

011026* 

011030’ 

011034’ 

011036’ 

511042’ 

•** t ♦ niiii * 


:ii044’ 

:::046’ 


010146 

0102 % 

042767 

032767 

X1417 

016700 

005400 

016731 

16C1X 

X6300 

31006^ 


000002 166762 
000010 170742 

170744 

170742 


.fct74E 


;PROCESS TERMINATION OF PREVIOUS I/O FUNCTION 
;JSR PC.PROCTH S/R CALL 

iR3 : PROC table AOR 


PROCTN: MOV 
MOV 


; DESTROYS RO 

R1,-(SP) 

R2.-{SP) 

•o6term.dflguo 

•io,curFlg 

205 

curcnt.ro 

RO 

FINCNT.Rl 

Rl.RO 

RO 

R0.SI2E 


;SAVE Rl & R2 

;RESET PROCESS TERMINATION FLAG 
;INCR BYTE COUNT’ 

;Y.N-2Q5 

C^T INITIW. UORO CNT 
;MAKE IT POSITIVE AGAIN 
:GET FINAL UORO CNT 
:IS IT NEGATIVE’ (Y,N-105) 

;MAKE IT POSITIVE 

;SUB REMAINING CN’ FROM INITIAL CN’’ 

;HAKE IT A BYTE CN” 

rS^ORE I OF BYTES AC’JhllY YFEROEC 
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17070S 

000001 
000132 
00002M 

166730 

0OOSO7 

0CN767 000006 

012602 

012601 

000207 


NOV 

ROD 


166706 20S: 


B 


INTEW: .UORD 
JSR 
NOV 
NOV 
JSR 

PROCEX: JSR 
NOV 
NOV 
RTS 


CNTftOR.Rl 

R0-{R1) 

-(Ail 

•IO^RR.OFLGUO 


RSjftRIS 

lOTERN-ERNBRS 

PCjiNTV 

{SA)*,R2 

{5>)4,R1 

rs^.3cOpger 

PC 

PC.RINTV 

iSR)>.R2 

(SP)^.Rl 

PC 


2M-SEP-76 14:11 PftGE 11-1 

GET ROR OF BYTE CNT TOTRLS 

^^E Noi? ilfiNF UORO OF C4' 
URS THEI€ RN 


Y.N-l , 
G6 IS! 


I/O TERNINRTION 


T the int vector 

RESTORE R1 & R2 

GO TO NPG ERR RETN OQINT 
RETURN IN-LINE 
GO RESET INT VECTOR 
RESTORE R1 S R2 

:EXIT IN-LINE 


011134’ 004567 000020 
011140’ 000406 
011142' 0167^ 166660 
011150’ 004577 166714 

QI 1154 ’ oocm] 

011156’ 000207 


000004 


.•RESET INTERRUPT VECTOR S/R 

;JSR PC.RINTV S/R CflL^ 

;R3 NUST CWTfilN PROG TBL ROR 
; DESTROYS RO 


RINTV; JSR 
BR 
NOV 
JRR 

lOS: 

RINTEX: RTS 


RS.TVECT 

riAtex 

IVCTRO.lOf 

RS.aCLftVEC 

XXXX 

PC 


GO CK IF I HRVE VECTOR 
BR IF I DON’T 
GET CURR INT VECT ROR 
GO HRVE NPG CLERR V 

;EXIT IN-LINE 


IONTROl 


;TEST INTERRUPT VECTOR S/R 

;JSR R5JVECT 

BR LR6EL 

;R3 NUST COHTRIN PROG TBL ROR 
DESTROYS RO 



011160’ 016767 

166642 000010 

TVECT: 

NOV 

2037 

011166’ 0163% 

000004 


NOV 

2C3B 

011172’ 004577 

166674 


JSR 

2035 

011176’ 000000 


20S: 

.UORD 

183? m- m 



.WORD 

8R 

2042 

011204’ 005725 



TST 

2C43 

011206’ 000205 


TVECTX: 

RTS 


S/R CRLl. 

EXECUTED IF NOT SANE 


IVCTfl0,20S 

PFMR0RlR3).-{SP) 

RS.aTSTVEC 

xwa 

RHPINT-. 

TVECTX 
(R5) + 

R5 


GET CURR INT VECT ROR 
STORE FLGHD ROR TO IDENTIFY NE 
DO I HRVE VECTOR CONTROL’ 

NPG UILL TELL NE SINCE I CRN’T 
GET AT LOJ£R NEN IF NEN NGNNT 
BR IF I DONT'T HRVE CNTRL 
BYPASS BR INST IN S/R CALL 
EXIT IN-lINE 
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■«:noe:-.*-c" 

:'psaa.p:i 


21C1 

Cil4M2' 

062702 



EBSBAS: ADO 

2102 

2103 

210M 

OllMMM’ 

0114%’ 

170206 



EBSTAT: .WORD 

012767 

000015 

00C146 

HOV 

011454’ 

0127% 

000100 


MOV 

210S 

OllMbO’ 

011462’ 

011464’ 

012205 



15S: HOV 

2106 

000305 



17S: SWAB 

2107 

112004 



20S: HOVB 

2138 

011466’ 

005704 



TST 

2109 

011470’ 

001445 



BEQ 

2110 

011472’ 

122704 

000377 


CHPB 

2111 

011476’ 

oiisgp’ 

0115W’ 

001770 



BED 

2112 

122704 

000376 


CHPB 

2113 

001766 



BEQ 

211M 

011506’ 

011512’ 

011514’ 

032704 

000100 


BIT 

211S 

001403 



BEQ 

2116 

131005 



BITB 

2117 

011516’ 

001407 



BEQ 

2118 

011520’ 

000402 



BR 

2119 

011522’ 

011S2M’ 

011526’ 

131005 



3QS: BITB 

2120 

001004 



BNE 

2121 

042704 

177770 


35S: BIC 

2122 

011532’ 

011534’ 

011536’ 

060400 



ADD 

2123 

000753 



8R 

2i2M 

042704 

177770 


40S: BIC 

2125 

011542’ 

011544’ 

020416 



CMP 

2126 

101017 



BHI 

2127 

0115%’ 

011552’ 

060467 

000050 


ADO 

2128 

005304 



DEC 

2129 

011554’ 

011556’ 

005200 



ivK 

2130 

021627 

000100 


CMP 

2131 

011562’ 

011564’ 

001403 



BEQ 

2132 

112721 

000054 


HOVB 

2133 

011570’ 

005316 



DEC 

213M 

011572' 

112021 



50S: HOVB 

2135 

011574’ 

011576’ 

011600’ 

011602’ 

011604’ 

005316 



DEC 

2136 

005304 



DEC 

2137 

001374 



BNE 

2138 

000730 



BR 

2139 

005004 



60S: CLR 

21M0 

011606’ 

022627 

000100 


CMP 

21M1 

011612’ 

001404 



BEQ 

2iM2 

2:m3 

011614’ 

011620’ 

011622’ 

004567 

001144 


JSR 

002404 



.WORD 

21MM 

000116 



7QS: .WORD 

21MS 

011624’ 

011630’ 

011632’ 

011636’ 

004567 

000700 


BOS: JSR 

21M6 

000000 



ERSTAO: .WORD 

21M7 

004767 

001056 


JSR 

21M9 

016300 

000022 


ERRSNM; HOV 

21M9 

011642’ 

111001 



11 OS: HOVB 

2150 

011644’ 

026067 

000004 

170112 

CHP 

2151 

011652’ 

011654’ 

011656’ 

001402 



BEQ 

2152 

060100 



ADD 

2153 

000771 



BR 

2154 

011660* 

::i662’ 

005720 



120S: TST 

2155 

010701 



HOV 

2156 

( 1 

<r 

cr 

X 

062701 

ICc232 


ADD 


H04 

NftCYll 87(732) 


(PC)+.R2 
CSTRT-EBSBAS 
•13.. 70S 
•64. -(SP 
(R2)i.R5 
R5 

(RO)+.R4 

R4 

60S 

•377, RM 
15S 

•376. R4 
17S 

•100, R4 
30S 

(R0),R5 

40S 

35S 

(RQ),RS 

40S 

•177770, RM 

RM.RQ 

30i 

•177770, RM 
RM.CSP) 

60i 

RM,7DS 

RM 

RO 

(SP),^6M. 

SOS 

•' , (Rl)+ 

(R0)+.(R1)4 

(5P) 

RM 

SOS 

20S 

RM 

(SP)4,^6M. 

80S 

RS^PRINT 

DKfeNSG-. 

78. 

RS.DISPST 

XXXX 

PC.PRTIUD 

PSftCST(R3).R0 

(R0),R1 

M(R05,ERRftDR 

120S 

Rl.RQ 

iiiis 

(R0) + 

PC.Rl 

•StriNUf*-. .R1 


2M-5EP-76 14:11 


initirlize nsg length 
initirlize cok field cnt 
GET next dev WORD 
GET DESIRED BYTE IN LOW BYTE 
GET FLRG & LENGTH BYTE 
END OF THE CODE TBL’ 

N.Y-bOS 

g6 to NXT dev REG WORD’ 

NJ-JSS 

(ji TO NXT BYTE IN DEV REG WORO'^ 
NJ-17S 

BtT VRLUE OF 0 = RN ERROR CONDriON'» 
Y,N-30S 

tAiS bit reset in dev REG BYTE’ 

N.Y-MOS 

g6 to NXT TBL ENTRY 

THIS ERROR BIT SET IN DEV REG BT’E’ 

N.Y-MOS 

IMLRTE ENTRY LENGTH 
POINT AT NXT CODE TBL ENTRY 
GO CK FOR NXT CODE 
ISOLATE I.D. NAME LENGTH ♦ 1 
ENOUGH ROOn FOR NAME’ 

Y.N-60S 

AdlJ HSG LENGTH FOR NAME 
ROJ FOR BIT NASK CHAR 
POINT PAST BIT NRSK 
FIRST ERROR CODE IN NSG" 

N.Y-50S 

n6^ comma to HSG 

AOJ REMAINING ROOM IN HSv, 

HOVE ERROR CODE TO HSG 
ROJ REMAINING ROOM IN HSG 
MOVED ALL NAME CMRS’ 

Y.N-50S 

g6 CK FOR MORE ERROR BITS 

SET USER MODE PRINT 

ANY ERROR COOES PUT IN HSG' 

Y.N-BOS 

g6 ISSUE ERROR BITS HSG 


: DISPLAY DEVICE REG’S 

;DISR.AY CYL. HERO. SECT VALUES 
;GET ADR OF SRC STHNTS 
;SAVE STHNT LENGTH 
; ERROR OCCUR ON THIS STHNT' 
;N.Y-120S 

;P6INT at NXT STHNT 

:G0 CK NXT STHNT 

;SET UP ADR OF STHNT • OA’h 

:SET UP data OUTPUT ADP 
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SUBROUTINES FOR RKOb FUNCTION ROUTINES 


104 

NftCYll 37(733) 


2157 

liH 

21b0 

21b: 

21b2 

3lb3 

2lb4 

2lb5 

2:bb 

2lb7 

2:b8 

2ibS 

2170 

2171 

2172 

2173 

2174 

2175 
217b 

2177 

2178 
2178 
2180 
2181 
2182 

2183 

2184 
cl3S 
218b 
2187 
2186 

2185 
2180 
2181 
2182 

2183 

2184 

2185 
21 % 
2187 

2186 

2201 

2204 

2205 

220b 

2207 

2208 

||OT 

2211 


OllbTO* 

QllTOb* 

011710’ 

011712’ 

011714’ 

01171b’ 


004577 


011720’ 

011741’ 

011742’ 

011743’ 

011744’ 

011745’ 

011752’ 

011757’ 

0117b4’ 

011771’ 

81 ^: 

012010 * 

012015’ 

m- 

o{^’ 

§ 1 ^’ 

oilobo’ 

0l20b5’ 

m- 

012104- 


100005 

020005 

004004 

3f/ 

377 

377 

377 

004 

040004 

004 

010004 

004 

000404 
377 
0046m 
J7b 
100105 
Ilf 


Ibblbb 


0l2b05 

1%04 

1205 


042503 

050123 

052103 


042200 

041527 

052440 

04251b 

047010 


010004 

005 

100004 

004 

D200Q4 

004004 


002320 


043125 

051127 

051104 

05312b 

051104 

051504 

040410 


041504 

052500 

« 

04b 127 


051 


584 

105 


114 

054504 

052117 
114 
04b 103 


113 

05151b 

111 

042524 

105 


ERREX; 


051122 ERCDTB: 
051101 
117 


052114 

105 

042520 

104 

0%505 


JSR 

NOV 

JSR 

.UORO 

.UORO 

NCV 

NOV 

RTS 


RS.aOECftSC 

STWHG-. 

-14. 

(SP)^.R5 

i5P)^,R4 

R5 


24-SEP-7b 14:11 PAGE 11-4 


T SPACES 


; RESTORE R5 S R4 
;EXIT IN-LINE 


SEO 004 



; ERROR NESSAGE CODE TABLE 

;377 = GO TO NEXT DEVICE REGISTER WORD 
37b = GO TO NEXT DEVICE REGISTER BYTE 

BYTE 0 CONTAINS FLAG BITS S I.D. NANE lE^G^h 


.ASCII 

.ASCII 

.ASCII 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 


.ASCII 
.BYTE 
11 


.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BYTE 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 


I.C. NANE 


BITS 0-2 = LENGTH OF BIT NASK ♦ 

BIT 3 = RP04 ONLY ERROR BIT 
BIT 4 = RPOS/RPOb ONLY ERROR BIT 
BIT b = BIT = 0 IS AN ERROR CONDITION 

BYTE 1 IS T« BIT NASK 

BYTES 2 THRU ’ ARE THE BIT’S ASCII I.D. 


<005><200>/CERR/ 

<0Q5><040>/SPAR/ 

<004><010>/CTO/ 


;RPCS1 - BYTE 1 


377 

377 


J77 

<004)<200>/DLT/ 

<Q04><ia0>/UCE/ 

<004><040>/llPE/ 

<004><020>/HED/ 

<QQ4><D10>/NEH/ 

<Q04><Q04>/PGE/ 

<004><002>/«DS/ 

< 004X001 >/UFE/ 
377 

<^><010>/URL/ 

<10S><200)/OROY/ 

<103><100>/W/ 

<005><040>/OROT/ 

<004><020>/0SL/ 

<00S><010>/ACL0/ 

377 

<004X 200) /OCK/ 
<004X100>/UNS/ 
<004X 04Q>/0PI/' 
<IM4x020>/0TE/ 
<004><010>/ULE/ 


;RHC5£ - byte 1 


;RPDS - BYTE 1 
;RP0S - BYTE 0 


;RPER1 - BYTE 1 



2M-SEP-7b 14:11 PftGE 11-5 


5E3 0046 


;RP£R1 - BYTE 0 


;RPRS - BYTE 0 


; table terminator 
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K04 
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24-SEP-7b 14:11 PftGE 12 


.SBTTL SUBROUTINES FOR RKOb DEVICE ROUTINE 


;SRVE REGISTERS RO THRU R5 


012272’ 0101% 
012274’ OlQ^b 
01227b’ 01D3Mb 
012300’ 0104% 
0123Q2’ 0105% 
012304’ 010007 


01 230b’ 00572b 
012310’ Ol2bOS 
012312’ 012b04 
012314’ 0l2b03 

8il^: 81118? 

012322’ 000200 



;JSR RO.SAVREG 

S/R CALL 

MOV 

R1,-(SP) 

;SAVE RO THRU RS 

MOV 

R2 -(SP) 


MOV 

R3,-(SP) 


MOV 

R4,-(SP) 


MOV 

R5,-(SP) 


MOV 

RO PC 

;EXIT IN-LINE 

•.RESTORE REGISTERS RO THRU RS 



;JSR RO.RESREG 

S/R CALL 

TST 

(SP) + 

.•RESTORE RS THRU 

MOV 

(SP)+,R5 


MOV 

(SP)+,R4 


MOV 

(SP)+,R3 


MOV 

(SP)>,R2 


MOV 

(SP)^ R1 


RTS 

RO 

;EXIT IN-LINE 


012324’ 

01232b’ 

012332’ 

01233b’ 

012342’ 


010703 

0b2703 

lbb303 

01b704 

000207 


lb5452 

17777b 

Ib54b2 


;SET PROGRftfl’S PROG TABLE ADR IN R3 S RPCSl ADR IN R4 


SUPTAD: flOV 
ADD 
SUB 
MOV 
RTS 


;JSR PC, SUPTAD 

PC.R3 

•l6cz-..r3 

-2(R3),ft3 

DREGAD.RH 

PC 


S/R CALL 

;SET UP LOCATION ZERO ADR 

; SUBTRACT PROG TBL LENGTH 
;GET DEV REG BASE ADR 
;EXIT IN-LINE 


; STORE DEVICE’S STATUS REGISTERS 


22S1 


012344’ 

0123%’ 

012350’ 

012354’ 

0123Sb’ 

0123b2’ 

0123bb’ 

012370’ 

012372’ 

0123 ^ 4 ’ 


1 
1 

Olb7M 

01004b 

0b271b 

012702 

012021 

105302 

0C1375 

000302 


ib5450 

000010 

002412 


STSTAT: MOV 
ADO 
MOV 
MOV 
ADO 
MOV 

lOJ: MOV 

DECS 
BNE 
SWAB 


JSR R5. STSTAT 
,.WORD STROP- . 
iOESTROYS R0,Ri,R2 

R5.R1 

(%)^.R1 

drega6.ro 

RO.-(SP) 

iRRcS2.(SP) 

•STSLuR.R2 

(RO)”*-, (Kl) + 

R2 

lot 

R2 


S/R CALL 
REL STORAGE ADR 


I^ABlbLUTE 


STORAGE ADR & MAKE 
ABr 

GET DEV REG ADR 
SET UP ADR OF RPCS2 REG 
FOR LATER USE 
SETUP TWO LOOP COUNTS 
STORE DEV REG 

FINISHED WITH THIS GROUP OF REGS 
.Y.N-iOS 

;S6t up NEXT LOOP CNT 
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2202 

2203 

2204 

2205 
22 % 
22^ 
2208 
2200 

2300 

2301 

2302 

2303 

2304 

2305 
230b 

2307 

2308 
2300 

2310 

2311 

2312 

2313 

2314 

2315 
231b 

2317 

2318 
2310 

2320 

2321 

2322 

2325 

2328 

2320 


01237b’ 

012400’ 

012402’ 

01240b’ 

312410’ 

012412’ 

01241b’ 

012420’ 

012422’ 

012424’ 

01242b’ 

012432' 

012434’ 

01243b’ 


001417 

0107% 

Ob27lb lb724b 

02012b 

101005 

03273b 000200 
001403 
012021 
0007bl 
0f)572b 

Ob27QO 000002 
005021 
000754 
000205 


012440’ 

01244b’ 

012452’ 

0124b4’ 

Ol24bb’ 

012474’ 

01247b’ 

gins: 

012514; 

012524’ 

01252b' 


15t: 

20S: 


30S: 


012787 

00002b 

00005b 

DEVID: 

MOV 

118300 

000035 



MOVB 

020027 

000007 



CMP 

im 

1S5374 



BHI 

JSR 

000874 




.UORD 

018787 

000872 

000884 


MOV 

000410 




BR 

012787 

000032 

000020 

DEVIIV: 

MOV 

835188 

177400 

185342 



BIC 

JSR 

000844 




.UORD 

004587 

000812 

000242 


DEVIPR: 

JSR 

.UORD 

000028 



DEVIML: 

.UORD 

000207 




RTS 


BEO 30S 

NOV PC.-(SP) 

flOO •C§TflT-.,(SP) 

CMP R1.(SP)+ 

BHI I5i 

BIT tOR.acSPl^ 

BEQ BOS 

MOV (R0)>*',(R1) + 

BR lOS 

TST (SP)-*- 

ADD 12, RO 

CLR (R1)+ 

BR lOS 

RTS R5 

; DISPLAY DEVICE I.D. i UNIT i 

;JSR PC.DEVIO 

:R3 MUST CONTAIN PROG 

•DESTROYS R0,R1,R2 


122..DEVIML 
PCUR6v(R3),R0 
RO, 17 

S|.ilTASLZ 

UNASCI-. 

UNASCI+4,UNASCI 

DEVIPR 

iBb^DEVIML 

llT^gO.RO 

RS.aBiNAsc 

unAsci-. 

R5.PRINT 

UNITMG-. 

22 . 

PC 


DONE 2 PASSES’ (N.Y-30S) 

SET UP CURRENT STATUS 
5T0RA(*E ADR 

STORING STATUS FOR INTERRUPT’ 
'".N-15S 

I§ OUTPUT READY’ 

Y.N-20S 

StORE RPOB’S CONTENTS 
GO DO SECOND PASS 
TAKE UNUSED ADR OFF STACK 
BYPASS READ OF RPD9 
SET ITS STORAGE TO D’S 
GO DO SECOND PASS 
EXIT IN-LINE 


S/R CALL 
TBL ADR 


; INITIALIZE TO NORMAL MSG LNGTH 
:GET CURR UNIT 1 
; VALID UNIT 1 ’ 

;Y.N-DEVIIV 

;C6nvERT 1 TO DECIMAL ASCII 

;MOVE ASCII 1 TO 1ST TWO DIGITS 
GO ISSUE MSG 

;SET UP ERR COND MSG LNGTH 
; RESET HIGH BYTE 
•CONVERT BINARY 1 TO ASCII 

;G0 ISSUE UNIT 1 MSG 


;EXIT IN-LINE 
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2331 

2332 

2333 
233M 
2335 
233b 

2337 

2338 
2335 

2340 

2341 

2342 

2343 

2344 

2345 
23% 
2347 
2340 
2345 

2350 

2351 

2352 

2353 

2354 

2355 
235b 

2357 

2358 
2355 
23bO 
23b 1 
23b2 
23b3 
23b4 
23b5 
23bb 
23b7 
23b8 
23b5 

2370 

2371 

2372 

2373 

2374 

2375 
237b 
2377 
3370 
2375 


012530’ 

012532’ 

012534’ 

01253b’ 

012540’ 

012542’ 

0125%’ 

012552’ 

01255b’ 

0125b0’ 

0125b4’ 

0125bb’ 

012570’ 

012573’ 

012S7b’ 

Ul2b00’ 

012b02’ 

0l2b04’ 

012bl0’ 

012bl2’ 

0l2bl4’ 

0l2b20’ 

0l2b22’ 

Ol2b24’ 

0l2b30’ 

012532’ 

012540’ 

012544’ 

0125%’ 

012554’ 

012555’ 

012550’ 

012552’ 

012555’ 

012572’ 

012574’ 

012575’ 

012700’ 

012702’ 

012704’ 

012705’ 

012710’ 

Q12712’ 


010345 

010503 

052503 

0105% 

010705 

052705 

0127% 

012700 

010701 

052701 

012521 

012521 

005725 

052701 

005300 

001371 

012300 

004577 

000554 

012300 

004577 

000572 

012300 

004577 

000500 

012757 

152715 

100005 

152757 

005215 

100773 

010345 

015503 

004557 

000474 

000050 

012503 

005715 

001323 

005725 

012505 

012503 

000205 


DISPST: 


155354 

000020 

000003 

000505 


000012 


155245 


155235 


155225 

000050 

000003 


000034 


000015 000020 


000005 

000072 


; TAILOR STATUS MSG & PRINT IT 

;JSR R5. DISPST 
WORD STftTAOR-. 

I DESTROYS R0,R1,R2 

NOV R3,-(SP) 

NOV R5.R3 

ADD (F«) + .R3 

NOV RS,-(^) 

NOV PC’RS 

ADD iD^GS-.iRS 

MOV iREGNUM.-tSP) 

MOV 13, RO 

MOV PC.Rl 

ADO •DVRGMG-.,R1 

MOV (R5)+,(R1)+ 

MOV (R5)+,(R1)+ 

TST (R5)+ 

ADO 110., R1 

DEC RO 

BNE 15S 

MOV (R3)+.R0 

JSR RS.aeiNASC 

.WORD OVftOTl-. 

MOV (R3)+.R0 

JSR RS.aSINASC 

.WORD DVroT2-. 

MOV (R3)+.R0 

JSR RS.aeiNASC 

.WORD DVTOT3-. 

MOV 140.. 30S 

SUB f3.(§P) 

BPL 2Si 

SUB 114., 30S 

INC (SP) 

BMI 20S 

MOV R3.-(SP) 

MOV 5(SP).R3 

JSR rs.prInt 

.WORD DWCMG-. 

.WORD 40. 

MOV (SP)+,R3 

TST (SP) 

BNE lOS 

TST (SP)+ 

MOV (SP)+,R5 

MOV (SP)+.R3 

RTS R5 
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SCO OOS 


S/R CALL 

REL ADR OF STATUS DATA 


I GET REL DATA ADR 
;MAKE IT ABS 
•,SAVE R5 

•SET UP ADR OF REG NAMES IN ASCII 

; SET UP I OF REGISTERS TO DISPLAY 
SET UP 3 REG LOOP CNT 
I POINT AT REG NAME IN MSG 

;MOVE REG NAME TO MSG 

; POINT TO NEXT NAME 
; POINT TO NEXT FIELD IN MSG 
;DONE 3 REGS’ 

;Y.N-15S 

c6nVERT OCTAL REGISTER CONTENTS 
FOR 3 REGISTERS TO ASCII 
:AND PLACE IN THE MSG 


INITIALIZE MSG LENGTH TO 3 REGS 
OECR REGISTER CNT 
< 3 REGS’ (Y,N-2SS) 

SHORTEN MSG LENGTH BY 1 REG 

INCR NEG REG CNT 

CNT BACK TO 0’ (Y.N-20J) 

SAVE REG DATA PNTR 
RESTORE PROG TBL ADR 
GO PRINT THE MSG 


RESTORE REG DATA PNTR 
MORE REGS TO GO’ 
N.Y-IOS 

REMOVE CNT FROM STACK 
RESTORE RS S R3 


:EXIT IN-LINE 
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SEO 00S2 



23B1 

23B2 


23« 

2395 

2396 

2399 

2400 

2401 

2402 

2403 

2404 

2405 
240b 
2407 
240fa 

2409 

2410 

2411 

2412 

2413 

2414 

2415 
241b 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 
242b 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 
243b 



27b2’ 


^r, 

001221 

O 

001224 

01b700 

®^§77 

001227 

Q045b7 

m 

000207 


012784’ 
012788’ 
012770’ 
012772’ 
012774’ 
012778’ 

8{i 

013008’ 

013010’ 

013012’ 

013014’ 

013018’ 

013024’ 

013030’ 

013032’ 

013034’ 

013040’ 

013042’ 

013044' 

013050’ 

013052’ 

013054’ 

013058’ 

013082’ 

013088’ 


010500 

082500 

84Po4 

100030 

010702 

082702 

180^ 

010022 

mi 

005412 

018387 

004577 

000232 

000005 

004577 

XOOOO 

000000 

004577 

000440 

000002 

000410 

010087 

010187 

004577 


185054 

185120 

185044 

185108 

000008 


PRINT; 


000040 


000008 000240 
185024 


185014 


185004 


000010 

000008 

184780 


lOS: 


20S: 


40S: 


;DISPLRY CYL/HEftO/SECT WORDS’ VALUES 


PRTIUD: 11^ 


.WORD 

MOV 

JSR 

.WORD 

MOV 

JSR 

.WORD 

JSR 

.WORD 

.WORD 

RTS 


;JSR PC.PRTIHD 
; DESTROYS to,Rl,R2 

SiJ[a§?NASC 

ifCyl-. 

1CAQ.R0 

f^VadlNASC 

IFfCfiO-. 

SECT.RO 

RS.raiNASC 

ifSect-. 

R5.PRINT 

IN^OMG-. 

PC 


S/R CALL 

I^V^rV I?k^ALUE TO ASCII 
;GET & CONVERT HEAD VALUE 

;GET & CONVERT SECT VALUE 

; PRINT MSG WITH THEIR VALUES 

;EXIT IN-LINE 


; ISSUE MSG TO LIST DEVICE SUBROUTINE 


JSR R5.PRINT 
.WORD MSGAOR-. 
.WORD BYTCNT 


S/R CALL 
REL ADR OF MSG 
MSG BYTE CNT (IF NEGATIVE, 
RESET PRT DEV DEDICATED.) 

R3 - PROG TBL ADR 

R4 = FLAGMORD — IF NEGATIVE, USE CMND MODE PRINT 
DESTROYS R0,R1,R2 


MOV 

ADO 

MOV 

TST 

BPL 

MOV 

ADO 

SUB 

MOV 

MOV 

BPL 

NEG 

MOV 

JSR 

.WORD 

.WORD 

JSR 

.WORD 

.WORD 

JSR 

.WORD 

.WORD 

BR 

MOV 

MOV 

JSR 


,R2 


R5.ro 
(RS)+,R0 
(RS)+,R1 
R4 
40S 
PC.R2 

rI,So‘ 

R0,(R2)+ 

RJ^(R2) 

(R2) 

PASCIN(R3),PR0GNM 

RS.aCLIST 

PNMMSG-. 

5 

R5,aCLIST 

XXXX 

XXXX 

RB.aCLiST 

CR^^F-, 

2 

PRTEX 

R0,50S 

R1,80S 

R5,3ULI5T 


GET MSG ADR & MAKE IT ABS 

GET BYTE COUNT 

USE CMND MODE PRINT’ 

Y,N-40$ 

SET UP LINK INFO ADR 

MAKE MSG ADR REL 
STORE MSG ADR 
STORE MSG’S BYTE COUNT 
CNT NEG’ (Y.N-IOS) 

MAKE IT POSITIVE 
STORE PROG’S i IN MSG 
ISSUE PROG i 


; ISSUE MSG SPECIFIED 


; ISSUE A <CR> I <LF> 


GO TO EXIT 

STORE MSG’S ABS ADR 

STORE ITS BYTE CNT 

GO TO MPG TO ISSUE THE MSG 



SEO OOS3 
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2s3r 

2H38 

2S39 

24*41 

2^42 

c‘4‘*3 

244H 

24*45 

2446 

2447 
2‘*4g 

244S 

2450 

2451 

2452 


01X72- 000000 
01X74- QOOOOC 
01X76- 000205 


SOS; 


.UC90 


60$: .UORO 

PRTEX: RTS 


xxxx 

xxxx 

RS 


■.EXIT IN-LINE 


SUBROUTINE TO PRINT ON THE LIST DEVICE 
CRLL RS FOUOUS 
JSR RS^INTX 
.UORO feOROR-PRlXl 
.H^BYTE COUNT 
RETURN 

THIS SUBROUTINE DOES NOT DESTROY R3 h RM 


54 
24S 


2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 
2466 
2«69 

2470 

2471 
1M72 

2473 

2474 

2475 

2476 

2477 

2478 
2474 
24flO 

2461 

2462 
2483 

^ t 

L tlT* 

24B5 

inuD 

2481 

2492 


0131X' 

013102’ 

013104’ 

013110’ 

013124’ 

0131X’ 

0131X’ 

013134’ 

0131.%’ 

01314C’ 


010446 


010346 

N767 177214 


00476? 

012704 000000 
12S67 QQOOlO 
1»7 5o^ 

004567 177634 


w 

8 


I I I I • I 


I I I I • I 


Oi( 

01 ( 
00Q2C5 


^RINTX: NOV 
NOV 
JSR 
NOV 
NOV 
NOV 
JSR 

PRIXi: .UORO 
PRIX2: .UORO 
NOV 
NOV 
RTS 


R4,-(SP) 

R3.-(SP) 

PC.SUPTRO 

•0.R4 

(«}♦, PRIXI 

(R5)+.PRIX2 

RS, PRINT 

xm 

xxxx 

(SP)4,R3 

(SP)->.R4 

RS 


SETUP R3 

RND R4 FOR USER NODE 
RELOCATE ADDRESSES 

;G0 TO NPG PRINT 


SUBROUTINE TO SELECT A DRIVE 
CALL AS FOUOUS 

PUT fCSSAGE SELECT CODE IN RS (R4 NUST = BASE AOOR) 

JSR PC, SO 

RETURN 


013142’ 

050564 

000026 iD: 

BIS 

R5.RPff?i(R4) 

0131%’ 

013154’ 

013160’ 

012764 

004767 

000207 

oogool 000000 

X00Q2 

JSR 

RTS 

PC 


SETUP f€5SA(JE SELECT CODE 
SELECT DRIVE 
UAIT FOR DRIVE 


013162- 010S46 
0l3iy’ 012705 
013170’ 0^14 
013174- X1002 
013176’ 005305 
013200’ W1373 
013202’ 01260S 
0132IN’ 000207 


0001 40 
0002X 


SUBRXTIfC TO UAIT FOR DRIVE DELAY TINE 
CW.L UITH JSR PC.DRVDLY 

6RV0LY; NOV RS.-(SP) 


DRVi: 


DRV2; 


BIT 

BNE 

DEC 

BNE 

NOV 

RTS 


•^..RS 
•roY,(R4) 
DRV2 
RS 
ORVl 

(SP)+,RS 

PC 


;I5 CONTROLLER RE«5Y 
:YES. EXIT 


; DEFAULT IF CONTRl NOT RD^ 


SUBROUTI 
SUBRCiyTI 
fi4 NUST 
CALL UITH JSR PC,CTRLCL 



LER aEAR 
RKC 
DISK 


:S_RKCS2^|A^S^ RKOA 


013206’ 016446 000010 
C132I2‘ 016446 000004 

::32:6' oi6446 000006 


dTRLCL: NOV 
NOV 
NOV 


RPCS2(R4),-(SP) 

RPflA(R4),-(SP) 

RPDA(R4).-(SP/ 


:SAVE DISK PARANATERS 


•iiirCec-il-OTRbfl-fi RKbll - RK08 DEVICE ROUTINE FOR rf»C 

TIM 


''T, 


RbRR.Pll 


SUBROUTIMS for RKOb DEVICE ROUTINE 
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2SOO 

25C1 


013222’ 0S27IH 


inooo 



0132H2’ 0l2bbM 
0132%’ 000207 


000010 


2S0S C132S0’ 012714 OOOOOS 
2S05 0132SM’ 004767 177702 
2S0b 013260’ 000207 


BIS 

NOV 

NOV 

RTS 


•CCLR.CRH) 

(SP)^ RreR(RH) 

(SP)*,RPCS2(R4) 

PC 


;CLEfW COHTRXLER 
; RESTORE DISK PRRRNATERS 


subroutine to issue drive clear 

CALL WITH JSR PC.DRVCLR 

NTAIN IhE base ADDRESS OF THE DISK REGISTERS 


R4 MUST CONI 

6rvCLR: NOV 
JSR 
RTS 


•DCC00£,(R4) 

PC.DfiVOLY 

PC 


; CLEAR DRIVE 


SE5 0054 



RKfau - ^Ob device ROUTirc for «pg 
rRW.Pi: 9k0b ftSSRGE STORPGE RRER 


SE2 COSE 


•SBTTL 
n E S S R G E 


0:32b2’ 021520 
0132bH’ 05M1X 
013257’ 101 
013303’ 103 
013315’ 105 

01333H’ 025052 
013360 ’ 05M1X 


8 


81 
013412’ 
0134X’ 
013436’ 
013452’ 
013474; 

013520’ 

013553’ 

013566’ 

81S?1-' 

013634’ 
Oi: 

01 
01 
013752' 
013766’ 
014003' 
014022' 
014036’ 
014055’ 
014104’ 
014132’ 

014140’ 

014145* 

014162' 

014177’ 

014206' 

014216' 

014224’ 

014242* 


g:ii88 

0541X 

0541X 

054502 

0541X 

0541X 

0^15 

SR411 

0541X 

IX 

0541X 

188 

0541X 

Q541X 

054’S 
0541X 
0541X 
IX 
0541X 
0541X 
IX 
0541 X 


Oil 

020124 

051125 

042116 

025052 

0541X 


0541X 

0541X 

042524 

0S41X 

0541X 



01**^4’ 


0141‘ 
054503 
IX 
0541X 
IX 
014206’ 
052123 
0541X 
051105 
000102 
042502 
043101 


040514 

042522 

047440 

045522 

0541X 


0S41X 

0541X 

035123 

0541X 

0541X 

020075 

0541X 


0541X 

^ix 

0541X 

0541X 

0541X 

036514 

K41X 

Q541X 

0541X 

047115 

0541X 

047522 

047506 

042E24 


PntlSG: 

PROGftl: 

RTinSG: 

CURnSG: 

REfCfIG: 

UNITHC: 

UNRSCI: 

'M: 
)T1; 
DVR0T2: 
DVR0T3: 
CHTSflG: 
BCHRO: 
BCn«: 
CRLf: 

BCnCK: 

CnOCflO: 

CfCClA: 



040 
0541 X 
054 IX 
0541X 

0201 
0541 
020122 

042522 

020122 


..4LIST 

.EVEN 

.ASCII 


.ASCII 

.ASCII 

.EVEW 

.ASCII 

.ASCII 

.EVEN 


iii 


.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 


CNTC 
CNTMCE; 
CNTRTY: 
CNTINT: 
CNTSENs 
irrONG: 
IFCYL: 
IFHEAO: 
IF5ECT: 

STrtfiG 

STMNUN 

DKENSG 

COOFLD 

BEFIO: 

AFTIC: 


.ASCII 

.ASCII 

!ascii 

.ASCII 

.ASCII 

.ASCII 

.EVEN 

.ASCII 

.ASCII 

.ASCII 

.BLKB 

.ASCII 

.ASCII 


DOS 

NACYll 27(732) 24-5EP-7b 14:11 

RK06 rCSSAGE STORAGE AREA 
STORAGE AREA 


BEX 


/?•/ 

/XX/<011> 

/AT LAST INT:/ 
/CURRENTLY:/ 

/END or REPORT/ < 15' <12- 

/fi**RK06 DISK UNIT: / 
/XXXXXX/ 


/XXXXS / 

/XXXXXX XXXXr / 

/XXXXXX XXXXs / 

/XXXXXX/ 

/BYTES: R0= / 

/XXXXXXXXXXXX UR= / 

/xxxxxxxxxxxx/ 

<015><Q12> 

<011><011>/CK= / 

/XXXXXXXXXXXX/<0l5>c012><0il>/CnNDS: RD= 
/XXXXXX / 

/XXXXXX CXs / 

/XXXXXX/<Q15><012><0il><0ll>/SKs / 

/XXXXXX HiSCs / 

/XXXXXX/<0i5><012><0il>/ERR0RS: OEv= / 
/XXXXXX CORR ECC: / 
fXXXXXX OATA/Om: « 
/XXXXXX/<W5><012><011 >/RETRy 5: DLT= / 
/XXXXXX OTEs / 

/XXXXXX / 

/XXXXXX/<015><012><011><011>/FER= 

/XXXXXX OCXs / 

/XXXXXX/<01S><012)<D11><011>/«CE= / 
/XXXXXX/<015><012><011>/T0TAL RETRYS: - 
/XXXXXX/<015><012><011> /INTERRUPTS: / 
/XXXXXX/ 


/CYL= / 

/XXXXXX HEAO= / 

/XXXXXX S£CT= / 

/XXXXXX/ 

/STNNT • / 

/XXXXXX/ 

/ERROR BITS:/<015><012'<C11> 

66 . 

’BEFORE ISSUING I/O CHNO:’ 
•AFTER ISSUING I/C CNND:* 
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2S8e 


014^23- 

OIVHHT 

014457 ’ 

014472 ’ 

014511 * 

014521 ’ 



015172’ 

01S205’ 

iSH' 

015354’ 


w 

8 


015404’ 

015412’ 

015420’ 

015425’ 

0154X’ 

015454’ 

015453’ 

015517 * 


047457 
047457 
47457 



015 

0154X’ 

020040 

015454’ 

047515 

0154|3' 

105 

015544 - 



044510 

042115 


047440 

047440 


CW7457 

^105 

044130 

0U115 

053115 

0%101 

047522 

052125 


020125 

0%105 



042440 

8 ^i^ 

041040 

051107 

052520 


047125 
051104 
117 



042S23 

021440 

0%131 

005015 

020123 

047440 


CRTO: 

SRTO; 

RTQ: 

lOTERH 

NOATA: 

NOOI: 

UXPATA 

RTYEXH 

IN^T 

INVP05 

CRLT: 

urtcE^ 

NSVAL 

PAHBA 

Or«RH 


.ASCIZ ’T/0 OH CRESET’ 
.ASCI2 ’T/0 ON SRESET’ 


:I2 ’T/0 ON REL’ 

iff 


I/O’ 


•ASCIZ 'I/O TERMINATION ERROR’ 
[NT 
[NT 


;jNT WITHOUT ATA’ 




.ASCIZ 

•ASCIZ 

•ASCIZ 


WITHOUT or 

“! 

NV ECC BIT PATTERN’ 

’INV ECC BIT POSITION’ 

’CAN NOT S6Q TRf, 

’UNKNOWN CONOITK 

’SVAL BIT NOT SET IN RKDS’ 

’PROGRAM ABORT: HAVE DISK ADDRESS WHICH WOULD CHANGE .AS^ 
’OUTPUT NOT READY ON RDHD COMMAND’ 


K’ 


rCSSAGES WHICH FXLOW WILL NOT HAVE DEVICE REGISTERS PRINTED 


InVDVN: .ASCIZ 
ISOnC: .ASCIZ 


RIOTS: 

BSH: 

B^=. 

PftJM: 

PNUMl: 

PNUrC: 

PNUHX=. 

B9CA0: 



iX=. 

TIAAP: 

EOeS: 

EOBSXr. 


.ASCII 

.ASCIZ 

.ASCII 

.ASCII 

.BLKB 

.BLKB 

.BYTE 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.EVEN 

.LIST 


/INV UNIT •/ 

’SELDRI COrtlANO HAS INVALID CODE’ 

’RDIO IS TOO SHALL FOR “BADSEC" COMMAND’ <15' < 12- 
<11>’512(0ECIHAL) BYTES ARE NEEDED’ 

/BAD SECTORS (OCTAL DATA)/ 

/PACK •/ 

5 

5 

15,12 

/ CYL, f€AO, SECT/ 

/N0f€/<15)<12><12> 

/THIS IS AN ALIGNMENT PACK/<15)<12> 

/END OF BAD SECT0RS/a5><12><l2> 


BEX 


5C."‘.C 


::554«’ 


DVRENDs . 


'BACK* 


2SC8 

2b:3 

afei-t 

abiB 

2b:b 

56:7 


562C 

2651 

2622 

2623 

2625 

2626 
2626 
2627 
2626 
2626 
26X 

2631 

2632 

2633 
263S 


2637 

2638 
263« 
26^0 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 
2646 
2653 

2651 

2652 

2653 

2654 

2655 

2656 

2657 
2656 

s56 


■C*R6A-m RK611 - 
cORf^'^S FDR 


X0242 


RK06 DEVICE ROUTINE FOR flPG 
PROGRRfI i DEVICE ROUTINE TRBLE5 


F05 

NPCYll 27(732) 


24-5EP-76 14:11 P«C£ 14 


SE3 3057 


300000 

000002 

000020 

QQQ040 

OOOlOO 

000200 

100000 

000002 

100000 

040oa 

020000 

010000 

004000 

002000 

001000 


W^C * 

2662 


000100 

000040 

000020 

000010 

000004 

000002 

OOOOOl 

300004 

000006 

000010 

300016 

000020 

00X22 

30X24 

000026 

X0C3C 


.SBTTL FORNflTS FOR PRXRRN i XVICE RXTINE TABLES 
PRO(y?AN table fornat 


PTLGTHr 162. 
:IPTLCTH= 212. 
PFLGHOs +0. 


URSTOP= 2 
ERSTQPs 4 
UT4I0Tr 10 

CTPRIO= 20 

uscuerir 2X 

ACTIVEr lOOOX 


PROGRAM TABLE LENGTH - NON HEM NGNNT VERSION OF MPG 
PROGRAM TABLE LENGTH - HEM fIGNNT VERSION OF HPG, 
PROGRAM flag WORD - 1 WORD 

1 = XER HAS STOPPED THIS PROGRAM 


1 = AN ERROR HAS STOPPED THIS PROGRAM 
1 = WAITING FOR I/O TEWINATIon 
1 = CONSOLE OR PRINTER I/O IN PROGRESS 
1 = THIS P^ SET THE PRT DEV DEDICATED FLAG 
1 = OBJ CODE IS PREKNT 

1 = THIS PROG USES THE UNiBUS NAP (NEM HGNNT CNL> 


POPSW= +2. 


1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECU'^ION- 
; PROGRAM’S OPERATION SHITCtfS - 1 WORD 


STOfCR= lOOXC 
CYCTOGs 400X 
PRONER= 200X 

BiTi2= ioggo 

BITIU 4000 
CYCDVLs 20X 
GTNXTO= lOX 

W ^ 

BIT6= IX 
XIOT= 40 
AUTORP= 20 
AURPEP= 10 
HSI«>EP= 4 
PFBBOVr 2 
NOCOMP= 1 


1 = STOP PROG EXECUTION UPON ERROR 
1 s CYCLE PROGRAM (ON CURRENT XVI CE) 

1 5 X NOT PRINT ON ERROR 
0 = NOT USED 

0 = NOT UXD 

1 = CYCLE THE XVICE LIST 
1 = CYCLE ON SRNE XVI CE UPON ERROR 
1 = DON’T DO ERROR C«CKING 
1 = DEVIX^CIAL Of?RATION 

0 = NOT USED 

NOT PE , 

NOT AUTOHATICALLY DISPLAY COl#<TS 

1 = AUTO OIOTIay counts at end OF FINAL PASS ONLY 
1 = HOUSEKEEP COUNTS ONLY AT RUN COftWC 

1 = PRINT FIRST BAD BYTE ONLY ON VERIFY 
1 = X NOT PRINT PROG COff»LETED HSG 


1 = DO NOT PERFORM I/O TIHEXT 
1 5 DO 


PFUAORs 44. 
PASCIN= +6. 
PNAME= +8. 
PRDIOAs +14. 
PyRIX= +16. 
PSRC5T= +18. 
POBJSTr *2Q. 
PLNGTHr +22. 
PTOCNT= *24. 


t; PROGRAM FLAGMORD ADDRESS • 1 WORD 

PROGRAM’S NUMBER IN ASCII - 1 WORD 

PROGRAM’S NAME IN ASCII - 6 BYTES 

ADDRESS OF READ I/O AREA - 1 WORD 

ADDRESS OF WRITE I/O AREA • 1 WORD 

SOURCE STATEMENTS START ADDRESS - 1 WORD 

OBJECT COX START ADDRESS - 1 WORD 

PPOG AREA LENGTH (XJ END 'MINX PROG ’BL S’ ART - 

I'O TIMEOUT COUNT - 1 WORD 




SEi ::os6 




a&b3 
at>fe*4 
HbS 
?bbb 
?bb7 
abbs 
2bb9 
2b7: 
2b": 
2b72 
£b73 
2b7H 
2b 75 
2b 7b 
2b"7 
2b70 
2b7S 
2bBC 

2 bei 

2b82 

2b83 

2b0H 

2ba5 

2b8b 




G05 

'BbH-H 9 Kb:i - RKOb DEVICE ROUTIfC FOR flPG MACYll 27 ( 732 ) 2 H-SEP- 7 b 14:11 r>QaL IH-l 

FORflfl^S FOR PROGRRfl S DEVICE ROUTINE TftBLES 


300032 

300034 

0 C 003 S 

X 003 b 

XOOSb 

OOOObO 

000062 

000064 

000066 

OOOO"^ 

XX 72 

000074 

000076 

XOlOO 

000102 

000104 

000106 

000110 

000112 

000114 

300116 

000120 

000122 

000124 

000126 

300222 

30 C 236 


PfDLCD= * 26 . 
PDPNTRr * 38 . 
PCUROVr + 29 . 
PDNUnS= + 30 . 
PTEftts + 46 . 
PTEH 1 = + 40 . 
PTEn 2 = + 50 . 
PTEH 3 = + 52 . 
PTEN 4 = + 54 . 
PTEri 5 = + 56 . 
PTE« 6 = + 58 . 
PTEfT 7 = * 60 . 
PTEN 8 - +f 2 . 
PTEri< 3 = + 64 . 
PTEMlDr + 66 . 
PTEMlls + 68 . 
PTEni 2 = + 70 . 
PTEni 3 = + 72 . 
PTEni 4 = + 74 . 
PTEf 115 = + 76 . 
PN 8 R= + 78 . 
PSRC= + 80 . 
PDSTr + 02 . 
PSTKCTs + 04 . 
PSTKSVs + 86 . 
PSVPEG= + 146 . 
PUSRPC= * 158 . 


DEV ROUT nOOEL • CODE - 1 WORD 

CURRENT DEVICE NUf»ER POINTER - 1 BY”^E 

CURRENT DEVICE ■ - 1 BYTE 

DEVICE NUWERS - lb BYTES 

USER PROGRRN TEUPORRRY STORRUE - 1 WORD 

USER PROCyWI TENPORfiRY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

USER PROGRAM TEMPORARY STORAGE - 1 WORD 

NUMBER OF BYTES TO TRANSFER ON MOVE iNBR - 1 wCPC 

DATA SOURCE ADDRESS ON HOVE (SRC) - 1 WORD 

DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 

I OF WORDS (X 2) SAVED OFF STACK - I WORD 

5"ACK WORDS STORAGE AREA - 3C WORDS 

USER’S RO thru R5 REGISTERS STORAGE AREA - 6 WORDS 

USER’S CuRREN^ PROGRAM COUNTER - 1 WORD 



SE'J a05<) 


CKfai; - RKOfe device Rou^irc for nPG 
yPbM.P:: r drib’s fofi program & device RouTitc tables 


HOB 

P1ACY1I 27(732) 


2H-S£P-7b 14:11 PACE 14-2 


riB 

2'19 


; FOLLOW 

272C 

30C24C 

PROIOXr ♦160. ; 

2'!2 

2'23 

000244 

PRDIOVs ♦164. ; 

rs'* 

2'2S 

000250 

PURIOXr ♦168. ; 


00025** 

oWRIOVs ♦172. ; 

2729 

2'2S 


;(PUPARS= ♦176. 

c'30 

2-*3: 


:(PUPDRS= ♦152. 

2'32 

2733 


: (PUBMAP= 4206. 

2734 

2735 


:EN0 OF 

2736 

2737 

000240 

PTSIZE= ♦160. 

2738 

273<3 


;(PTSIZE= ♦210. 

2740 

2 ' 4 : 

00C242 

PTENDr ♦162. 

= '42 


;tPTEND= *2i2. 


2 WORDS) 


: STORAGE AREA FOR USER'S PDR’S 0 THRU 7-8 WORDS- 


PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 
PROGRAM TABLE SIZE IN BYTES - 1 WORD > MGMNT VERSION) 
END OF PROGRAM TABLE - NON MEM MGMNT VERSION 
♦212. ;END OF PROGRAM TABLE - MEM MGMNT VERSION 



IQS 

OKfeii - RKOfc DEVICE ROUTirC FOR HPG MRCYH 27(732) 24-SEP-7fc isrii PftGE 14-3 

-Rbt^.p;: FOPIfi^S FOR PROGRflfI & DEVICE ROUTirC TRfiLES 

; DEVICE ROUTINE TRBLE 

27S5 

27% 


2747 

2748 

2748 

000116 

DRTLTH= 78. 

• 

E'SD 

2751 

000000 

iJEVRSZr +0. 

2752 

2753 

00Q0G2 

DEVFU0= ♦B. 

2754 

2755 

000004 

DEVIU1= •*•4. 

2756 

2757 

000006 

DEVIU2= *6. 

2758 

275S 

OOOGIQ 

DEVIU3= +8. 

2760 

2761 

000012 

DEVIU4S *10. 

2762 

2763 

000014 

DEVIU5= ♦IB. 

2764 

2765 

000016 

DEVIU6= ♦14. 

2766 

2767 

000020 

D£VIU7= ♦lb. 

2768 

2768 

000022 

DEVIU8= ♦IS. 

277C 

2771 

000024 

DEVDRfis ♦20. 

2772 

2773 

000026 

DEVIVfi= ♦SB. 

2774 

2775 

000030 

DEVRPSs ♦24. 

|7^ 

000032 

DEVUPSs ♦26. 

2778 

2778 

000034 

DHKPfi0= ♦28. 

2780 

000036 

DERPfi0= ♦30. 

2782 

27B3 

00004C 

DKILAD= ♦OB. 

2784 

000042 

DECTA0= ♦OH. 

2787 

000044 

DTOEAOs ♦Ob. 

2788 

27flS 

0000% 

DEVIOB= ♦OB. 

2780 

2781 

000050 

DEV0ER= ♦HO. 

2782 

2783 

000052 

DVUPRTr ♦HS. 

2784 

2785 

000054 

DVCPRTr ♦HH. 

27% 

2^87 

000056 

DEVBTA= ♦Hb. 

2788 

2^88 

000060 

DVBTDfi= ♦48. 


; DEVICE ROUTINE TRBLE LENGTH 

DEVICE ROUTirC SIZE IN BYTES - 1 UORD 
DEVICE ROUTINE FLftCWORD - 1 UORD 
DEVICE INTERFftCE UORD I I - 1 WORD 
DEVICE INTERFfiCE UORD 12-1 UORD 
DEVICE INTERFfiCE UORD I 3 - 1 UORD 

DEVICE INTERFfiCE UORD • 4 - 1 UORD 

DEVICE INTERFfiCE UORD « 5 - 1 UORD 

DEVICE INTERFfiCE UORD • b - 1 UORD 

DEVICE INTERFfiCE UORD •7-1 UORD (SIZE) 

DEVICE INTERFfiCE UORD • 8 - I UORD (ERR' 

DEVICE REGISTERS fiDORESS - 1 UORD 

DEVICE INTERRUPT VECTOR fiDORESS - 1 UORD 

DEVICE READ PROCESSOR STATUS UORD (BUS REQ) - 1 UORD 

DEVICE URITE PROC STATUS UORD (BUS REQ) - 1 UORD 

DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 UORD 

DEVICE ROUT REPORT ROUT REL ENTRY APR - 1 UORD 

DEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 UORD 

DEVICE ROUT ERROR COUNTER REL ADR - 1 UORD 

DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 

DEVICE I/O BUSY BRANCH fiDORESS (CIOBSY) - I UORD 

DEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 UORD 

USER MODE PRINT BRANCH ADDRESS (ULIST) - 1 UORD 

CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 UORD 

CONVERT BINARY TO ASCII BR ADR (BINASO - 1 UORD 

CONVERT BINARY TO DECIMAL ASCII BR ADR iBTASLZ) - 1 UORD 


SEG 0(3bC 



JOB 

1AINO£:-n-DTRW-A RKbll - RKOb DEVICE ROUTINE FOR NPG NRCYll 27(733) 2M-SEP-7b 1H:11 PftGE IH-H 

:^Rb^¥J.Pll FORfiPTS FOR PROGRAM & DEVICE ROUTINE TABLES 


US 

280B 

2803 

0000b2 

DVPDTA= 

•►50. 

DOOObM 

DVSFWD= 

♦52. 

280S 

2805 

OOOObb 

DVSVECs 

♦59. 

280b 

2807 

000070 

DVCVEC= 

♦5b. 

2808 

2809 

000072 

DVTVECs 

♦58. 

|||0 

2812 

2813 

OC0079 

DVRINTr 

♦bO. 

00007b 

DVG£TB= 

♦b2. 

ills 

^Ib 

2817 

OOOIDO 

DVPUTB= 

♦b9. 

D00102 

DEVSTPs 

♦bb. 

2818 

2819 

2820 

2821 

000109 

DEVETPx 

♦bB. 

000 10b 

DVPTEP= 

♦70. 

2822 

2823 

UCOllC 

DVVTEP= 

♦72. 

2829 

2825 

000112 

DVCTEPs 

♦79. 

282b 

2827 

000119 

DVIUSP= 

♦7b. 

2828 

2829 

2830 

00011b 

DRTENDs 

♦78. 

2831 

000001 


.END 


CONVERT PACKED DECIMAL TO ASCII BR ADR (DECASC) - 1 WORD 

HPG SYSTEM FlAGWORD ADDRESS (CSYSFU) - 1 UORD 

SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 UORD 

CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 

TEST INTERRUPT VECTOR BR ADR (T3TVEC) - 1 WORD 

RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 

GET DATA BYTE BR ADR (GETBYT) - 1 UORD 

PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 

DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 

PACK TABLE EXTEN. REL POINTER - I WORD 

VECTOR TABLE EXTEN. REL POINTER - 1 WORD 

COMPILER TBL EXTEN. REL POINTER - 1 WORD 

DEVICE INTERFACE UORD SYMBOL TBL REL POINTER - 1 UORD 

END OF DEVICE ROUTINE TABLE 


SEO OObl 



'lHlNOe:-lI-D^RbA-A RKbll - RKOb DEVICE ROUTINE FOR ttPG 
D’PbA^.PII SYMBOL ■'OBLE 


AClO : 

ACQERR 

PCTIVE= 

PFTIO 

hNYIOI= 

RTATBL 

AUTOfiP= 

BfiOSEC 

BADl 

BAD 11 

BA012 

BA013 

9A014 

BftOlMl 

8A0142 

BAOB 

BA03 

B^3a 


OOMiO 
OOM33HR 
0042 i4R 
004? IbR 
100000 
01437HR 
000200 
0043b4R 


OOOOIQ 

000020 

00S5b4R 

OOSBbOR 

00S734R 

00S71bR 

OOSTHfcfl 

OObOOOR 

00bO32R 

OObONOR 

OOblbOR 

00b232R 

OObOSOR 

QQb37bR 

D0S43bR 


BA032Z 

BAD 321 

BA0322 

BA033 

8«)331 

BA04 

aftOMl 

BAI : 

9AI0FF 

BfilON 

BCnCK 

BCfW) 

BEFIO 

BiNfiSC 

BITll 

BIT12 

BITb 

h5>cx 5 
BSHX : 
BTASLZ 
Buawp: 

9YCK 

BYRO 

3YUP 

' . B : 


OObSbbR 

OObSOQR 

OObbOHR 

OObbSbR 

OObbbbR 

000020 

003S04R 

00347HR 

013M7MR 

C14344R 

OOOOSbR 

004000 

010000 

000100 

« 

Q15430R 

015454R 

015404R 

OOOObOR 

170200 

001720R 

001710R 

001714R 

lOOQOC 


CECCER 
CFHT = 

CKCORR 

CKoesY 

CKRTRY 

CKRl 

CLRCOO 

CLRCl 

CLRVEC 

CnOCCK 

CMDCfIS 

CMDCOtl 

CMDCRD 

CMDCSK 

CtIDCUR 

CrtDISU= 

CHOI 

CNTftOR 

CMTCEC 

CNTDCK 

CNTOER 

CNTDLT 

CNTDTE 

CNTEND= 

CMTERR 

CNTFER 

CNTHCR 

CNTINT 

CNTNUhr 

CNTRTY 

CMT^Nr 

CNTSHG 

CMTWCE 

COOFLD 

coL = 

CO^LG= 

COROFF 

CORON 

COUNTS 

C^O = 

CRESET 

CREl 

CRLF 

CRLT 

CRTO 

CSTRT 

CSYSFU 

z 

CTPRIO= 


001740R 

010000 


CTRLCL 

CUPGER 


010172R 

010b70R 

007730R 

010124R 


KJbTObfi 

00b720R 

00007DR 

0l3b01R 

0i3b34R 

OOSllbR 

013553R 

013bl7R 

Ol35bbR 

000100 

005122R 

OOlTbbR 

013703R 

01403bR 

D13^4R 

0137S2R 

0137bbR 

0017b4R 

013bb2R 

014022R 

014003R 

014132R 

00002b 

014i04R 

Q14140R 

0l3M3bR 

014055R 

014242R 

OQiSQO 

002^0 

003524R 

0035i4R 

QQ1710R 

000010 

M 

013510R 

014720R 

014423R 

OOlbSOR 

OOOOb4R 

004000 

00002C 


CURCND 

CURCNT 

CURFLG 

CURNSG 

CURPBC 


002 CYCDVL= 
002 CYCPRG= 
002 CYL 
002 OATAER 
002 DCCOOE= 
002 DCK = 
002 DCKCNT 
002 DECASC 
002 DECTAD= 
DERPAO= 
002 DEVBTAs 
002 OEVOER= 
002 DEVDRAr 
002 DEVETPx 
002 DEVFWD= 
002 DEV ID 
002 DEVI IV 
002 DEVINL 
002 DEVIOB^ 
002 DEVIPR 
002 0EVIVA= 
002 0EVIU1= 
D£VIW2= 
002 D£VIH3= 
002 OEVIWH= 
002 D£VIMS= 

002 oeviHb= 

002 DEVIW7= 

002 D£VRS2= 
002 DEVSTPr 


DEVWPS= 

DFLGUO 

gWPAO= 


002 DIAFLG 
002 DISCNT 
002 DISPST 
002 DKEfISG 
002 DKILAD= 
DLT = 
DlTCNT 


SEQ 00b2 




'«INOeC-n-OTRb«-A RKbll - RKOb DEVICE ROUTINE TOR NPG 
DTRbAfl.Pll SYMBOL TR8LE 


OTERfI 

'll M 881 

IRKD8 DOlbasR 002 

IPKDS 00lb22R 002 

IRKER 00lb2MR 002 

IRKPfi OOlbMSR 002 

mm 881 


01M521R 

01NM72R 


OCPR£S= 

000 

OFFSET 


ISDMC 

ISTPT : 

riME : 

IVCTPO 

J5ETER 

KILL 

KIlLEX 

KPPRS : 

KPORM ; 

LOCZ 

LUPCNT 

NOS = 

mSCNT 

NMVER = 

NSFNTl 

NSFMT? 

NSFMT3 

MS«^f1TS 

NSGfl 

NSG8 

PlYATfl 

NCC = 

NOC = 

NED = 

NEE = 

rcN = 

NOPTfl 

NOCOMP= 

NOQI 

NOICOfI 

NO I TER 

NOIl 

NOfC 

NOfCX = 

NOWflIT 

NRfiYTE= 

NRC = 

NRCYL = 

NRtCPD= 

NRWOTO: 

NSVfiL 

NXF : 


01S2O5R 

OOlblOR 

072MbO 

00002SR 

OlOlbbR 

002770R 

003020R 

1723S0 

172310 


00202*4R 
001000 
00173SR 
000001 
001570R 
001571R 
OOlSTbR 
OOlbOSR 
0000 14R 
OOOOlbR 
OOMMONfi 
000020 
QOOOOH 
OlOOOO 
000002 
004000 
014547R 
000001 
0145b7R 


014511R 
0040 14R 
015454R 
0l54b3R 
003444R 
001000 
000010 
000b33 


DPI = 

othpta” 

PftCODE= 


00440bR 

000003 


015000R 

000004 

000015 


PPKRCK 

PflSCINr 

PRT = 

PATCH 

PBSH = 

PC =: 

PCURDVr 

PONUMS= 

POPNTR= 

PORCONr 

POST = 

PFB80V= 

PFLGHD= 

PFUAOR= 

PGE = 

PLNGTH= 

Pf1DLCD= 

PNAME = 

PNBR = 

PNNNSG 

PNUN 

PNU«X = 

PNUMl 

PNUri2 

POBJST= 

POPSH = 

PRDIOA= 

PROIOVr 

PRDIOX= 

PRINT 

PRINTX 

PRIXl 

PRIX2 

PROCEX 

PROCTM 

PROGNM 

PRONER= 

PRTEX 

PRTIUD 

PS = 

PSRC = 

PSRCSTr 

PSTKCT= 

PSTKSVr 


00202bR 

000040 

X000007 

000035 

00003b 

000034 

077406 

000122 

000002 

000000 

000004 

002000 


000032 

000010 

00011b 

0132b2R 

015404R 

015430R 

015412R 

015420R 

000024 


000100 PSVREG= 

003454R 002 PSUD 

ms 

00440bR 002 PTENl|= 

000003 PTEni3= 

mm m 

00^20 PTENS = 

00202bR 002 PTEM4 = 

000040 PTEfIS = 

C000007 PTEfIb = 

000035 PTEf17 = 

00003b PTEM8 = 

000034 PTENS = 

077406 PTEND = 

000122 PTLGTHr 

000002 PTOCNTr 

000000 PTSIZE= 

000004 PUSRPC= 

002000 PUTBYT 

000026 PURIOAr 

0^32 PWR!ov= 

000010 PURIOXr 

000116 P4C0NS= 

013262R 002 RCCOQE:; 

015404R 002 RCODE = 

015430R 002 RDCNT 

015412R 002 RDCON 

015420R 002 RDHO 

000024 ROY = 

00QQ02 RgftO 

mOOlb RECAL 

000244 REGNUH= 

000240 REL 


mOOlb 

000244 

000240 

0127b4R 

013100R 

Q13130R 

013132R 

011122R 

OllOObR 

0132b4fi 

020000 

01307bR 

ai2714R 

177776 

000120 

000022 

000124 

000126 


REPORT 

REPTBL 

RESREG 

RETRYS 

RHCOD£= 

RHP I NT 

RHPl 

RHP 11 

RHP2 

RHP21 

RHP211 

RHP23 


SE5 0063 



MOB 


mainoec 

-li-DTRbA 

-H Rkbll - RKOb 

DEVICE 1 

ROUTINE 1 

=■08 MPG HACYll 

27(732) 

1 24-5EP-7b 14:11 

PACE 

15-2 

SEQ 

OCb- 

OTRbAA.Pil 

SYMBOL 

YASLE 










TIAAP 

0l54b3R 

002 

UNIflAPr 

000040 


UP3 0033S4R 

002 

UAITn0= 100000 


URCOM 1 

3Q44S2R 

002 

TOUTER 

Q0|S22R 

002 

UNITNG 

013334R 

002 

UP4 003314R 

002 

WCCODE= 000031 


URHD 1 

W714R 

002 

TSTVEC 

000072R 

002 

UNKERR 

014750R 

002 

URST0P= 000002 


WCE = 040000 


WRITE 1 

504442R 

002 

TVECT 

DlllbOR 

002 

UNLOAD 

003710R 

002 

USEU8n= 000200 


UCECNT 00l75bR 

002 

WRL = 1 

004000 


TVECTX 

OllBObR 

002 

UNS = 

040000 


USflTPS= 000002 




WRl 1 


002 

UCOOE = 

000007 


UPE = 

020000 


UXPATA 014bObR 

002 

UHCODEs 000027 


WR2 1 

004^ 

c:2 

UFE = 

OOOMOO 


UPSUB 

00331 OR 

002 

VV = 000100 


ULE = 0040GO 


WR3 1 

004534R 

002 

ULIST 

000052R 

002 

UPl 

00332bR 

002 

VVFLG = 001000 


URCK 00472bR 

002 

WT4I0T= 

000010 


UNASCI 

Ol33bOR 

002 

UP2 

003344R 

002 

WAIT 003424R 

002 

WRCNT 00l72bR 

002 

XXXX = 

000000 



01554HR 

002 











. ABS. 

000000 

000 












000000 

OQl 











RJPll 

01554*4 

002 












ERRORS DETECTED: 0 
DEFRULT aOBRLS GENERATED: 0 

» . DTRWW/NL : TOC/DOC=DTRbflfl . PI 1 
RUN-TINE; 8 18 1 SECONDS 
RUN-TIHE RATIO: 57/28=1.8 
CORE USED: bK (II PAGES) 


DOCUflENT PAGES; bH 



